//==============================================================================
// Ragnarok Online Valentine2006 Script     by Blaze
//==============================================================================
//==============================================================
// ~
//	 2 4		ǫǤǵġ	~vq
//	 4 7		ǫǤǵġ	~vq
//	 810	n	ǫǤǵġ	Ǹ
//	1215	n	ǫǤǵġ	ǧǧǦc
//	1517		ǫǤǵġ	
//	1719		ǫǤǵġ	
//	2123	n	ǫǤǵġ	Ǹ
// Function
//	getarg(0)	̪U~Ĥe
//		0=ǿǫUѷӴM
//		1=^_1	2=^_2	3=Ф	4=c
//	getarg(1)	ɨ
//		1=	2=]
//	getarg(2)	~U~Ĥe
//		1=~vq
//		2=Ǹ
//		3=
//		4=ǧǧǦc
//	getarg(3)	ǫǤǵĥi_
//		1=i	2=i	3=kUfi
//--------------------------------------------------------------

function	script	ValentineBreid	{
	if(getarg(0)==0)
		return 'flag;	//yMפF
	if((Weight*100/MaxWeight) >= 90) {
		mes "ҫ|~UqhFh";
		mes "|~yOrONeBz-";
		mes "-ҫ|~ypMpBA";
		mes "MG-";
		close;
	}
	if('flag) {	//ƼƤHP|ǻǿǽ
		mes "kpDG";
		mes "NeFnyMfo";
		close;
	}
	set 'flag,1;
	initnpctimer "V_BreidTimer";
	switch(QUEST_VALENTINE1) {
		case 0:
			function PatternA;
			PatternA getarg(0),getarg(1);
			break;
		case 1:
			function PatternB;
			PatternB;
			break;
		case 2:
		case 3:
		case 4:
			function PatternC;
			PatternC getarg(0);
			break;
		case 5:
			function PatternD;
			PatternD 0,0,0,getarg(3);
			break;
		case 6:
			function PatternE;
			PatternE 0,0,0,getarg(3);
			break;
		case 7:
			function PatternF;
			PatternF;
			break;
		case 8:
			function PatternG;
			PatternG;
			break;
		default:
			function PatternH;
			PatternH 0,0,getarg(2);
			break;
		case 17:
			function PatternI;
			PatternI;
			break;
		case 18:
			function PatternJ;
			PatternJ;
			break;
		case 19:
			function PatternK;
			PatternK;
			break;
		case 20:
			function PatternL;
			PatternL;
			break;
	}
	set 'flag,0;
	close2;
	cutin "dummy",255;
	return;

	function PatternA {	//case0
		switch(getarg(0)) {
		case 1:
		case 2:
			cutin "v_breid05",2;
			if(getarg(1)==1) {
				mes "[~]";
				mes "zKKIzGH";
				next;
				mes "[~]";
				mes "\KK";
				mes "OqAB^_MktC";
			}
			else {
				mes "[~]";
				mes "zQɶeNBWGQC";
				next;
				mes "[~]";
				mes "۷hsMroGKK";
				mes "OqAB^_MktC";
			}
			next;
			misceffect 207,"";
			percentheal 100,0;
			mes "["+strcharinfo(0)+"]";
			mes "KKH";
			mes "y@rJMH";
			mes "vJ!?";
			mes " ";
			mes "-rOOiRO^_F-";
			next;
			if(getarg(0)==1) {
				mes "[~]";
				mes "gyngOkB";
				mes "IkWnyorOVB";
				mes "_IOMnQOisQC";
				mes "GByh@jQH";
				next;
				mes "[~]";
				mes "yaMeJMVBeNUVO";
				mes "@`MLRQJMeEC";
			}
			else {
				mes "[~]";
				mes "VRQJFH";
			}
			next;
			if(select("GB֡H@Qqy!?","BqO")==2) {
				mes "[~]";
				mes "§VC";
				mes "VGJMzQɶReNB";
				mes "~_XMFQoQKK";
				mes "aNmJqfFizGCC";
				next;
				cutin "v_breid02",2;
				mes "[~]";
				mes "KKiwhC";
				mes "eqLzV@rQoC";
				set QUEST_VALENTINE1,2;
				return;
			}
			cutin "v_breid03",2;
			if(getarg(0)==1) {
				mes "[~]";
				mes "ǦVByĵMrMhGC";
				mes "HnNN^_MkJFOURB";
				mes "DUAVQzG!?";
				mes "§U@KiQU!?";
			}
			else {
				mes "[~]";
				mes "zBGH@hsMroGp";
				mes "^_MkJFzGH";
			}
			next;
			if(select("EpQ@N@","QzGBĵUzKK")==1) {
				mes "[~]";
				mes "EpQ@GO!?";
				mes "ǦOy^_MkJFONB";
				mes "ǦǤRgbFH";
				mes "ǦVۤUyGFFGGC";
				next;
				mes "[~]";
				mes "HnJO`yNFGNB";
				mes "DpsMVvzQC";
				mes "ǦǤUUV@QC";
				mes "@HNQzO@rzGQC";
			}
			else {
				cutin "v_breid05",2;
				mes "[~]";
				mes "KKz!?";
				mes "zGO!?";
				mes "UBǦKKz!?";
				next;
				mes "[~]";
				mes "~OI`I";
				mes "zOVGBzOVI";
				mes "eJFKK";
				mes "ǦǤfFR§QrOB";
				mes "ĵUKihsHeCC";
				next;
				mes "[~]";
				mes "eCvvJFpB";
				mes "zQOVpWGQI";
				mes "BJOtI";
			}
			set QUEST_VALENTINE1,1;
			return;
		case 3:
			cutin "v_breid05",2;
			mes "[~]";
			mes "iMGKK`QI";
			mes "ǿǨǿI";
			mes "U!!";
			next;
			menu "N@KKH",-;
			mes "[~]";
			mes "oEDMsFI@ǦVQB";
			mes "@pU_IG!!";
			mes "KK";
			next;
			cutin "v_breid03",2;
			mes "[~]";
			mes "BDEgQoI";
			mes "ǦGJMQBkqFM";
			mes "kJMrvjQzGEI";
			mes "NiQBͬUFhRVKy";
			mes "QjQzGI@B";
			mes "QzNǦzQOyKK!!";
			next;
			misceffect 207,"";
			percentheal 100,0;
			cutin "v_breid01",2;
			mes "[~]";
			mes "VKKǦǤRKKFqMi";
			mes "nQC";
			mes "HQfRBǩ襤NB";
			mes "LN^_MrzGC";
			mes "ǭǨNiFpBRrOC";
			set QUEST_VALENTINE1,2;
			return;
		case 4:
			cutin "v_breid05",2;
			mes "[~]";
			mes "ǧǧǦǧǧǦwoJI";
			mes "ǧǧǦVqeBzH";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "ǧǧǦKKH";
			next;
			cutin "v_breid06",2;
			mes "[~]";
			mes "~Bz!!@ǧǧǦRH";
			next;
			if(select("QFKKMhjQzN@H","pN@H")==1) {
				cutin "v_breid01",2;
				mes "[~]";
				mes "KK";
				mes "|~GoC";
				mes "HnJO򥲭nNQKK";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "MhVBDzQR";
				mes "hzN@KKH";
				next;
				mes "[~]";
				mes "kBDvjQKK";
				mes "HnJOHRVQ";
				mes "ƱJMTC";
				mes "OR򥲭nQzGC";
				mes "DDCǦ|~y";
				mes "MrOBMhRQoH";
				next;
				if(select("zyqFN@","MhRie@")==1) {
					mes "[~]";
					mes "eF||JFpBDUR";
					mes "MroC";
					mes "V|~ĤGpQC";
				}
				else {
					cutin "v_breid03",2;
					mes "[~]";
					mes "KKǦǤQKK";
					mes "HJBӤRt!!";
				}
				set QUEST_VALENTINE1,2;
				break;
			}
			cutin "v_breid01",2;
			mes "[~]";
			mes "ǧǧǦVBD`OMiBQ";
			mes "`UOMiϥsrB";
			mes "OMiQQiUGC";
			mes "300ZenyI";
			mes "5KǷǿN1500ZenyGC";
			next;
			mes "[~]";
			mes "BQBOI@QpSORB";
			mes "5KǷǿ1499ZenyNc椤!!";
			next;
			if(select("HnJOr","Re@")==1) {
				mes "[~]";
				mes "q@rKiqVQpB";
				mes "LzRR쥲nVQoC";
				mes "ǦiFGU|~GTC";
			}
			else if(Zeny < 1499) {
				cutin "v_breid03",2;
				mes "[~]";
				mes "zKKZenyqQfFGTC";
				mes "cPBȤ@rOV";
				mes "NQzGC";
			}
			else {
				cutin "v_breid02",255;
				mes "[~]";
				mes "VoBǧǧǦ5KC";
				mes "CסI@isnGI";
				mes "MBDtDtĵUǳ@rQC";
				set Zeny,Zeny-1499;
				getitem 7182,5;
			}
			set QUEST_VALENTINE1,2;
			return;
		}
	}

	function PatternB {	//case1
		cutin "v_breid03",2;
		mes "[~]";
		mes "KK";
		mes "UeU§eqQꥣC";
		mes "ǦRBH";
		next;
		if(select("qFMKK","kBNiQ")==2) {
			cutin "v_breid05",2;
			mes "[~]";
			mes "KKDC";
			mes "QpcGC";
			return;
		}
		cutin "v_breid05",2;
		mes "[~]";
		mes "qGO!?";
		mes "ǩROJMǦVBҸ";
		mes "HRrXhUX|U@KGC";
		mes "DsyvvqGO!?";
		mes "NkQpBs!!";
		next;
		mes "[~]";
		mes "KKDsOiB";
		mes "NqyFOQpB";
		mes "۷NyBMipjQC";
		next;
		if(select("P@sWH","kQJF")==2) {
			mes "[~]";
			mes "KKDC";
			mes "QpcGC";
			return;
		}
		mes "[~]";
		mes "DGQKKBhM";
		mes "ǸU@KNisFpB";
		mes "۷NrO{hMktC";
		mes "BPQzGH";
		next;
		if(countitem(909)) {
			if(select("r","Q")==1) {
				mes "["+strcharinfo(0)+"]";
				mes "ǸQpJMrPKK";
				mes "NiBGǸQzyH";
				next;
				mes "[~]";
				mes "NĵMMiBh}GpQC";
				mes "zeqvNK긡rpB";
				mes "kKRǸNiQOC";
				next;
				menu "`r!?",-;
				cutin "v_breid06",2;
				mes "[~]";
				mes "yDzQRMrzGH";
				mes "Ǹy`FOQUH";
				mes "ǦVo`MFEC";
				mes "QzOQMQKK";
				next;
				cutin "v_breid05",2;
				mes "[~]";
				mes "fzQƦ~eVB";
				mes "hQPkKNvqR";
				mes "Ǹy`FizGC";
				next;
				mes "[~]";
				mes "KKRiN~JMCGQC";
				mes "̪UYVBhɥNy";
				mes "pQzGQKK";
				delitem 909,1;
				set QUEST_VALENTINE1,2;
				return;
			}
		}
		mes "["+strcharinfo(0)+"]";
		mes "ǸH@JMQPKK";
		mes "NiBGǸQzyH";
		next;
		cutin "v_breid06",2;
		mes "[~]";
		mes "NĵMMiBh}GpQC";
		mes "zeqvNK긡rpB";
		mes "kKRǸNiQOC";
		next;
		menu "B`rzN@!?",-;
		mes "[~]";
		mes "yDzQRMrzGH";
		mes "Ǹy`FOQUH";
		mes "ǦVo`MFEC";
		mes "QzOQMQKK";
		next;
		cutin "v_breid05",2;
		mes "[~]";
		mes "fzQƦ~eVB";
		mes "hQPkKNvqR";
		mes "Ǹy`FizGC";
		next;
		mes "[~]";
		mes "KKRiN~JMCGQC";
		mes "KKҸ̪UYRVB";
		mes "hɥNQzMzNQzGQC";
		mes "VzGKKsC";
		return;
	}

	function PatternC {	//case2,3,4
		switch(getarg(0)) {
		case 1:
			if(rand(3)==0) {
				cutin "v_breid05",2;
				mes "[~]";
				mes "MGQKKvC";
				mes "GzQɶReNB";
				mes "QjzUG!?";
				mes "R줣GKK";
				next;
				mes "[~]";
				mes "|ǻioxirQC";
				mes "UFhRBDxiJMrzGH";
				next;
				if(select("OBDsVKK","@̤dyJM!!")==1) {
					cutin "v_breid06",2;
					mes "[~]";
					mes "ǢǨ{{{{!!";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "vJBQKK!?";
					next;
					cutin "v_breid05",2;
					mes "[~]";
					mes "B@ez@ezC";
					mes "@KiqjQJFzGKK";
					mes "kBzeqvNKK";
					mes "JDBDNi_QTC";
					next;
					mes "[~]";
					mes "zQɶR~yXBQjB";
					mes "ǦVzQNSbPh}Qp";
					mes "ĵ@rniQzGQC";
					next;
					mes "^4A4AFF-QFR@r~UnP";
					mes "W@eF-^000000";
					set QUEST_VALENTINE1,QUEST_VALENTINE1+1;
					return;
				}
				mes "[~]";
				mes "KK|ǻRBrӤHMQC";
				mes "ǸyhMBRyJhFC";
				mes "DMBǼ~yqMM";
				mes "@̤dyڨMBǯ_ȥJFC";
				next;
				mes "[~]";
				mes "KKGVdGQiUGJFC";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "KKGDzQy@rzN@H";
				next;
				mes "[~]";
				mes "@̤dyUVB";
				mes "MIyEJMOGC";
				mes "@ץ@rOBkq@UV";
				mes "jGpQC";
				next;
				cutin "v_breid02",2;
				mes "[~]";
				mes "eǩVBzQɶeN@aR";
				mes "xiJMrB߰tQOVQC";
				return;
			}
			break;	//ǳA_
		case 2:
			if(rand(3)==0) {
				cutin "v_breid05",2;
				mes "[~]";
				mes "QBǸJMQH";
				mes "JFpB@KsQH";
				next;
				if(countitem(909)<1) {
					menu "BJMeBz",-;
					cutin "v_breid06",2;
					mes "[~]";
					mes "QzGBǸ@pJMQUH";
					mes "@NUHQUKK";
					return;
				}
				if(select("Q","r")==1) {
					mes "["+strcharinfo(0)+"]";
					mes "ǸQzMBJMeBzoC";
					mes "DsRBRzN@H";
					next;
					mes "[~]";
					mes "JMKK`rzGH";
					mes "FeR`rOeEC";
					mes "QzOQfJMQKK";
					next;
					menu "`r!?@oJdPhFQzN@T!?",-;
					cutin "v_breid03",2;
					mes "[~]";
					mes "KK";
					mes "hFNcJFQKK";
					return;
				}
				mes "["+strcharinfo(0)+"]";
				mes "ǸQpJMrPKK";
				mes "NiBGǸQzyH";
				next;
				mes "[~]";
				mes "NĵMMiBh}GpQC";
				mes "zeqvNK긡rpB";
				mes "kKRǸNiQOC";
				next;
				menu "`r!?",-;
				cutin "v_breid06",2;
				mes "[~]";
				mes "yDzQRMrzGH";
				mes "Ǹy`FOQUH";
				mes "ǦVo`MFEC";
				mes "QzOQMQKK";
				next;
				cutin "v_breid05",2;
				mes "[~]";
				mes "fzQƦ~eVB";
				mes "hQPkKNvqR";
				mes "Ǹy`FizGC";
				next;
				mes "[~]";
				mes "KKRiN~JMCGQC";
				mes "̪UYVBhɥNy";
				mes "pQzGQKK";
				delitem 909,1;
				set QUEST_VALENTINE1,1;
				return;
			}
			break;	//^__
		case 3:
			if(rand(3)==0) {
				cutin "v_breid01",2;
				mes "[~]";
				mes "Vh}GKK";
				mes "DGBǤNi@rH";
				next;
				mes "[~]";
				mes "kV²I";
				mes "Uph峹y@qB";
				mes "Dsy椬RKQrzGC";
				next;
				mes "[~]";
				mes "hHjHjQU";
				mes "XrisQB";
				mes "cEH";
				mes "PGBkJMfrH";
				next;
				if(select("BCYkqen","MkrKK")==2) {
					cutin "v_breid03",2;
					mes "[~]";
					mes "kJMifQNOVB";
					mes "jQI";
					return;
				}
				mes "[~]";
				mes "DsjBR2K峹y@JMfMC";
				mes "eA@fUKK";
				next;
				input '@poem1$;
				mes "["+strcharinfo(0)+"]";
				mes "@fVKK";
				mes '@poem1$+ "NC";
				next;
				input '@poem2$;
				mes "["+strcharinfo(0)+"]";
				mes "@fVKK";
				mes '@poem1$+ "NB";
				mes "GfVKK";
				mes '@poem2$+ "I";
				mes "PN@H";
				next;
				mes "[~]";
				mes "sUiNFEC";
				mes "oBKQMfrC";
				next;
				switch(rand(6)) {
				case 0:
					mes "^218C21IHC!!^000000";
					mes "^4A4AFF" +'@poem1$+ "^000000";
					mes "^218C21IHCǱǻI^000000";
					mes "^4A4AFF" +'@poem2$+ "^000000";
					break;
				case 1:
					mes "^218C21ǿǿǿǳǿǽ^000000";
					mes "^4A4AFF" +'@poem1$+ "^000000";
					mes "^218C21W^_I@ǳǿǽ^000000";
					mes "^4A4AFF" +'@poem2$+ "^000000";
					break;
				case 2:
					mes "^218C21ǦURLRr^000000";
					mes "^4A4AFF" +'@poem1$+ "^000000";
					mes "^218C21~yMpsQM^000000";
					mes "^4A4AFF" +'@poem2$+ "^000000";
					break;
				case 3:
					mes "^218C21ΪVBRQrIĵơIĵơI^000000";
					mes "^4A4AFF" +'@poem1$+ "^000000";
					mes "^218C21ީ]ĵUN@VM!!^000000";
					mes "^4A4AFF" +'@poem2$+ "^000000";
					break;
				case 4:
					mes "^218C21ǯI@ǯI@ǯǯI^000000";
					mes "^4A4AFF" +'@poem1$+ "^000000";
					mes "^218C21iLCI@ǯǯ!!^000000";
					mes "^4A4AFF" +'@poem2$+ "^000000";
					break;
				case 5:
					mes "^218C21V`RL^000000";
					mes "^4A4AFF" +'@poem1$+ "^000000";
					mes "^218C21|UUoR!!^000000";
					mes "^4A4AFF" +'@poem2$+ "^000000";
					break;
				}
				next;
				cutin "v_breid05",2;
				mes "[~]";
				mes "KKKK";
				mes "Ǧp|GQKK";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "KKzKK";
				mes "|GTKK";
				set QUEST_VALENTINE1,QUEST_VALENTINE1+1;
				return;
			}
			break;	//ǳA_
		case 4:
			cutin "v_breid05",2;
			mes "[~]";
			mes "pJjI@ǧǧǦRH";
			next;
			if(select("Re@","cN@")==2) {
				mes "[~]";
				mes "q@rKiqVQpB";
				mes "LzRR쥲nVQoC";
				mes "OtNKKǧǧǦJMBUee";
				mes "`MieUQKK";
				return;
			}
			mes "[~]";
			mes "5KǷǿN1499ZenyGoI";
			mes "TH";
			next;
			if(select("N5KǷǿQzN@H","V")==1) {
				mes "[~]";
				mes "DqjBqVGKK";
				mes "KK";
				mes "rQpBRvQMC";
				return;
			}
			if(Zeny < 1499) {
				cutin "v_breid03",2;
				mes "[~]";
				mes "zKKZenyqQfFGTC";
				mes "cPBȤ@rOV";
				mes "NQzGC";
				return;
			}
			cutin "v_breid01",2;
			mes "[~]";
			mes "VoBǧǧǦ5KC";
			mes "CסI@isnGI";
			set Zeny,Zeny-1499;
			getitem 7182,5;
			set QUEST_VALENTINE1,QUEST_VALENTINE1+1;
			return;
		}
		//^_PǳAp
		if(getarg(0)==3) {
			cutin "v_breid01",2;
			mes "[~]";
			mes "hsMroGKK";
			mes "^_MktH";
			next;
			if(select("B@e@","BjVN@")==1) {
				mes "[~]";
				mes "bpoJOC";
				mes "eqLzy@rQoC";
				misceffect 207,"";
				percentheal 100,0;
			}
			else {
				mes "[~]";
				mes "LGp{@rOQEH";
				mes "nQpBKNiJMsC";
			}
			return;
		}
		cutin "v_breid01",2;
		mes "[~]";
		mes "^_MbVB";
		mes "KNiJMsC";
		mes "ǳN^_MkrpQC";
		mes "AHreRvQOB";
		mes "iJFQpQC";
		next;
		set @menu,select("AJMH","^_Mb");
		mes "[~]";
		mes "ǳRArUy";
		mes "pQGtH";
		mes "jQJMiBvJFqB";
		mes "zNya@iUNVQB";
		mes "ĪGLRHrizGC";
		next;
		if(@menu==1) {
			mes "[~]";
			mes "Qr`Ą}UAN";
			mes "fFizGQC";
			mes "eBHVLFriUGB";
			mes "Ds{R@rniQGtKK";
			next;
			cutin "v_breid02",2;
			mes "[~]";
			mes "B鵴RU!!";
			mes "̫U@KUǳyzGp";
			mes "jMĪGeHGJFq@rOB";
			mes "c_rizGC";
		}
		else {
			cutin "v_breid02",2;
			mes "[~]";
			mes "BKVAhHj";
			mes "̤WUǳGC";
			mes "spA}~GOB";
			mes "JFq!!@JMPrQC";
			misceffect 207,"";
			percentheal 100,0;
		}
		return;
	}

	function PatternD {	//case5
		if(getarg(3)==3 && QUEST_VALENTINE1_FLAG==1) {
			cutin "v_breid04",2;
			mes "[~]";
			mes "KK";
			mes "DUCKK";
			mes "UeǦ챫MJFOH";
			next;
			mes "[~]";
			mes "hzTCMrRĲpsrOB";
			mes "LNRHjzGC";
			next;
			if(select("RQNG","yKMGo")==1) {
				mes "["+strcharinfo(0)+"]";
				mes "RFApFUVpGpC";
				mes "gtppQMVKK";
				next;
				cutin "v_breid05",2;
				mes "[~]";
				mes "DCjBJMipC";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "KK";
				next;
				cutin "v_breid02",2;
				mes "[~]";
				mes "͡BGJMC";
				mes "DBǿO@rQ!!";
				mes "OtNBNUnRr";
				mes "seNMsQH";
				mes "ǽzNrQC";
				next;
				mes "^4A4A4A-QFR@r~U˱K";
				mes "W@eF-^000000";
				set QUEST_VALENTINE1,6;
				set QUEST_VALENTINE1_FLAG,2;
				return;
			}
			cutin "v_breid06",2;
			mes "["+strcharinfo(0)+"]";
			mes "LNGpOJMB";
			mes "\sriUjQNnI";
			mes "iJOPqRyKMGoI";
			mes "DzQLgGOB";
			mes "͹FiQzjQU!?";
			next;
			cutin "v_breid03",2;
			mes "[~]";
			mes "QJKKGO!?";
			mes "HvvYyUM";
			mes "JMkJMrUR!!";
			next;
			misceffect 2,"";
			percentheal -50,0;
			mes "[~]";
			mes "i@רJMft!!";
			next;
			misceffect 2,"";
			percentheal -40,0;
			mes "[~]";
			mes "ǦLgGOJ!?";
			mes "HnJO챫FpNB";
			mes "DeNvsMqJMpsr!!";
			mes "Bi@רJMft!!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "FJKKFFJKK!!";
			mes "khMKKkhMG!!";
			mes "pcJFBLeFI";
			mes "rpBkhMGI";
			next;
			cutin "v_breid05",2;
			mes "[~]";
			mes "HJKK";
			mes "KK";
			mes "okzFC";
			next;
			misceffect 207,"";
			percentheal 100,0;
			mes "[~]";
			mes "KKvMkrKK";
			mes "JMBsVnNjQEC";
			mes "KGpnQB^_M";
			mes "krzGCɹH@rQoC";
			return;
		}
		if(getarg(3)==3 && QUEST_VALENTINE1_FLAG==0 && rand(3)==0) {
			cutin "v_breid05",2;
			mes "[~]";
			mes "KKKKK";
			mes "KKKKK";
			next;
			if(select("nyr","ˤlyfr")==2) {
				mes "^4A4AFF-~UUeNyJMfF";
				mes "Q-";
				mes "-y}Fee";
				mes "~vqyMroG-^000000";
				next;
				if(select("vUyMfr","nyr")==1) {
					mes "^4A4AFF-~UvUUNB";
					mes "hUvUy@JqKefKK";
					mes "@RMfr-^000000";
					next;
					cutin "v_breid03",2;
					mes "[~]";
					mes "MJ!! QBy@rzG!?";
					mes "ɤOϹI";
					mes "yrQpBfNI";
					if(Sex==0)
						return;
					next;
					misceffect 2,"";
					percentheal -50,0;
					mes "[~]";
					mes "zQ\RQ!!";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "vBpcJFN@I";
					mes "cBɤOϹI@DUy";
					mes "UtMGI";
					next;
					cutin "v_breid06",2;
					mes "[~]";
					mes "zKKH";
					mes "DUCBPFUH";
					mes "ǭǨMrEH";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "QFJFzNn!!";
					mes "FJFI@DUNI";
					mes "ɤOϹOQpB";
					mes "pUCyJFUVPUN@!?";
					next;
					misceffect 207,"";
					percentheal 100,0;
					cutin "v_breid04",2;
					mes "[~]";
					mes "zBQzGǦǤKK";
					mes "챫MFizNQKK";
					mes "zeBMryηNR";
					mes "LczGEH";
					mes "vMkrpR@rQC";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "KKp챫MFpJMB";
					mes "QqrQzMKK";
					next;
					cutin "v_breid03",2;
					mes "[~]";
					mes "BrI";
					mes "^_FpBJOǵǻNi";
					mes "qRJMI";
					set QUEST_VALENTINE1_FLAG,1;
					return;
				}
			}
			mes "["+strcharinfo(0)+"]";
			mes "yMrzN@H";
			next;
			cutin "v_breid01",2;
			mes "[~]";
			mes "KKǩC";
			mes "ieJF`QJI";
			mes "i쥭MNMNKK";
			mes "vQJMMC";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "CDNĵMsWBr";
			mes "NnTKKFeRVzGpH";
			next;
			mes "[~]";
			mes "JMQJFH";
			mes "ձYM쨱zGέMC";
			mes "vGJMURBDKUNvqR";
			mes "QjQzGC";
			mes "eBvvJFpBۤU";
			mes "HRrORQrPTC";
			next;
			cutin "v_breid04",2;
			mes "[~]";
			mes "OƤUGpBjVC";
			mes "߰tMsMqOC";
			return;
		}
		cutin "v_breid05",2;
		mes "[~]";
		mes "V㥭MNBh}NBvKK";
		mes "ǬǬǬǡ";
		mes "KKirKK";
		next;
		if(select("Ǹqe@H","pVJMeBzKK")==1) {
			mes "[~]";
			mes "pQC";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "HnNNJMrURI";
			next;
			mes "[~]";
			mes "۷vUNB԰vqG";
			mes "sroRrKiqGC";
			mes "sNiJMpzMkrI";
			mes "iGtƥGtB";
			mes "JJJR_QpQC";
			next;
			mes "[~]";
			mes "GpB԰ȮɶvreNO";
			mes "JOUeeiBAR@r!!";
		}
		else {
			cutin "v_breid03",2;
			mes "[~]";
			mes "KK";
			mes "ǦǤVBhsMiQB";
			mes "viQBiMiQKK";
			next;
			cutin "v_breid05",2;
			mes "[~]";
			mes "DsRKKۥRB^sMTC";
			mes "ǦiMhyhM_IoQC";
			next;
			mes "[~]";
			mes "eBiNU԰ivqC";
			mes "MQOVpWGC";
			mes "UHRpQMVQC";
			mes "DsRB|~ivqKK";
			next;
			menu "|~ġH",-;
			mes "[~]";
			mes "KK";
			mes "UĵU԰VUNNMr";
			mes "GGpBMVXQzGC";
			next;
			mes "[~]";
			mes "|~NiQqjB";
			mes "ͬWMC";
			mes "KKJMBǦBNzQy";
			mes "MrzGKKH";
		}
		set QUEST_VALENTINE1,6;
		return;
	}

	function PatternE {	//case6
		switch(getarg(3)) {
		case 1:
			if(QUEST_VALENTINE1_FLAG==2) {
				set QUEST_VALENTINE1,7;
				set QUEST_VALENTINE1_FLAG,0;
				getitem 573,1;
				getitem 7182,5;
				cutin "v_breid01",2;
				mes "[~]";
				mes "I@JMF!!";
				mes "eeBOqAshI";
				mes "zNiJMBsyJMI";
				next;
				mes "[~]";
				mes "oBzGQC";
				mes "DsjBfNOMB";
				mes "DUǧǧǦy|ǻeN";
				mes "tFotI";
				next;
				menu "KKDUFhRIzGUH",-;
				cutin "v_breid05",2;
				mes "[~]";
				mes "DGC";
				mes "GH@LRMFUH";
				mes "ۤNoOJFzGB";
				mes "ĵƤGtKKH";
				mes "ΪUyszNX@OB";
				mes "QQNQJMKK";
				next;
				mes "[~]";
				mes "^4A4AFF|ǻ^000000U^4A4AFFǳǯ=ǳǦ^000000GC";
				mes "gEC";
				return;
			}
			cutin "v_breid01",2;
			mes "[~]";
			mes "UKK@eQB";
			mes "UaNhF~yB";
			mes "|ǻeNtFy";
			mes "fFzGC";
			next;
			mes "[~]";
			mes "~NtFyMrzGB";
			mes "|ǻeN쩳QpQC";
			next;
			if(select("N@o","N@")==2) {
				cutin "v_breid05",2;
				mes "[~]";
				mes "DKK";
				mes "xJFQBPoKK";
				return;
			}
			mes "[~]";
			mes "tF~VBǧǧǦ5KGCHVB";
			mes "|ǻUǳǯ=ǳǦGC";
			next;
			set QUEST_VALENTINE1,7;
			getitem 7182,5;
			mes "[~]";
			mes "~UNViipJMrpB";
			mes "FGBMssWC";
			next;
			mes "[~]";
			mes "^4A4AFF|ǻ^000000U^4A4AFFǳǯ=ǳǦ^000000GC";
			mes "gEC";
			return;
		case 2:
			cutin "v_breid01",2;
			mes "[~]";
			mes "^4A4AFF" +'name$+ "^000000O";
			mes "kUlypQH";
			mes "QGh}UReN";
			mes "eJMFlQzGC";
			mes "KKkB@ezCzQy";
			mes "@rKiqVQJFzGQC";
			return;
		case 3:
			cutin "v_breid01",2;
			mes "[~]";
			mes "DsNVeFBN|C";
			close2;
			set 'flag,0;
			cutin "v_breid01",255;
			return;
		}
	}

	function PatternF {	//case7
		cutin "v_breid05",2;
		mes "[~]";
		mes "^4A4AFF|ǻ^000000U^4A4AFFǳǯ=ǳǦ^000000GC";
		mes "tF@rV^4A4AFFǧǧǦ5K^000000C";
		mes "gEC";
		return;
	}

	function PatternG {	//case8
		cutin "v_breid01",2;
		mes "[~]";
		mes "BWGJFQC";
		mes "HjzOMsFH";
		next;
		switch (select("ƮOMipJFǽǯy@","ipJFǽǯy`FO")) {
		case 1:
			if(countitem(558)<1) {
				cutin "v_breid05",2;
				mes "["+strcharinfo(0)+"]";
				mes "BsH@QKK";
				mes "tFƮOMipJFVAU";
				mes "ǽǯQQJHjJF!?!";
				mes "zBPRJFzGtKK";
				next;
				cutin "v_breid02",2;
				mes "[~]";
				mes "tFFUVǩGpBƮQp";
				mes "ǩ`M}JFzGKK";
				mes "QHjJFUCݩGQC";
				break;
			}
			mes "[~]";
			mes "zKKGH@ǽǯġH";
			mes "srUH";
			next;
			if(select("ƮOMipJFO","pUHGO")==1) {
				mes "["+strcharinfo(0)+"]";
				mes "tFVBǽǯUNFC";
				mes "tFƮROipJFUNB";
				mes "`MGC";
				next;
				mes "[~]";
				mes "tFFUVǩGpB";
				mes "tFƮQpǩ`MoC";
				break;
			}
			if(Sex==0) {
				mes "[~]";
				mes "KKǦBǦRKKH";
				next;
				delitem 558,1;
				set QUEST_VALENTINE1,QUEST_VALENTINE1+3;
				cutin "v_breid04",2;
				mes "[~]";
				mes "BqOC";
				next;
				mes "^4A4A4A-QFR@r~UnP";
				mes "jTRW@eF-^000000";
				if('name$=="" || rand(3)==0)
					set 'name$,strcharinfo(0);
			}
			else {
				cutin "v_breid04",2;
				mes "[~]";
				mes "QJKK";
				mes "nBGt!?";
				mes "ǦVKKDVQE!!";
				set QUEST_VALENTINE1,9;
			}
			return;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "tFVBǽǯUNFC";
			mes "tFƮRO@KipJFUNB";
			mes "`BMeFC";
			next;
			cutin "v_breid06",2;
			mes "[~]";
			break;
		}
		mes "ǧǧǦVǽǯUQzGC";
		mes "pQJFH";
		next;
		cutin "v_breid02",2;
		mes "[~]";
		mes "DkBǽǯjnQ";
		mes "VFQCQzXFpB";
		mes "[]qR|FQJFQC";
		mes "ORBtFqOC";
		next;
		mes "^4A4A4A-QFR@r~U˱K";
		mes "W@eF-^000000";
		set QUEST_VALENTINE1,9;
		return;
	}

	function PatternH {	//case916
		switch(getarg(2)) {
		case 1:
			cutin "v_breid01",2;
			mes "[~]";
			mes "^4A4AFF" +'name$+ "^000000O";
			mes "kUlypQH";
			mes "QGh}UReN";
			mes "eJMFlQzGC";
			mes "KKkB@ezCzQy";
			mes "@rKiqVQJFzGQC";
			return;
		case 2:
		case 3:
			cutin "v_breid01",2;
			if(rand(3)) {
				mes "[~]";
				mes "ǳǿǽI";
				misceffect 207,"";
				percentheal 100,0;
				next;
				mes "["+strcharinfo(0)+"]";
				mes "KK";
				next;
				mes "[~]";
				mes "KKKK";
				mes "KK";
				next;
				mes "[~]";
				mes "vGBvGI@vQzGo!!";
				mes "izQ԰zqQzGo!!";
				return;
			}
			mes "[~]";
			mes "UeǧǧǦytFMipJFB";
			mes "ǽǯNWQQzGC";
			mes "HnPwcMrpB";
			mes "ǩiRJFpPGH";
			mes "jQORJpQoC";
			next;
			mes "[~]";
			mes "ssWsr{ǧǧǦUݭnWB";
			mes "Ǧi޼W[!!@ӽc!!";
			mes "QqW!!@JMQI";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "KK";
			mes "QrbPBDsتN@KK";
			next;
			cutin "v_breid05",2;
			mes "[~]";
			mes "KKǳǿǽI";
			misceffect 207,"";
			percentheal 100,0;
			next;
			mes "["+strcharinfo(0)+"]";
			mes "e@QJ!!";
			set QUEST_VALENTINE1,QUEST_VALENTINE1+1;
			return;
		case 4:
			if(rand(3)) {
				cutin "v_breid05",2;
				mes "[~]";
				mes "DtDt|~ivqC";
				mes "UzyQOQC";
				next;
				menu "BPRzN@H",-;
				mes "[~]";
				mes "|ǻRrUC";
				mes "DtDt~RpQOTC";
				mes "eFBRFRNi";
				mes "|rOQC";
				return;
			}
			cutin "v_breid01",2;
			mes "[~]";
			mes "ǧǧǦrH";
			mes "300ZenyI";
			mes "5KǷǿNjS1499Zeny!!";
			next;
			if(select("QꤾGTKK","BBbJFON@")==1) {
				cutin "v_breid05",2;
				mes "[~]";
				mes "KKQꤾJMKK";
				mes "ǦBQOJFH";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "ȬqzN@oI";
				mes "Ȭq!!";
				next;
				cutin "v_breid03",2;
				mes "[~]";
				mes "VBsGpHVKK";
				mes "wӫ~UyPJMQQH";
				mes "DsVDD²RRJr~j";
				mes "QzGE!?";
				mes "QOqsrEH";
				mes "RvQjBLURJHjEH";
				next;
				if(select("RNiD쨥JMrzNnKK","jB@JMG")==1) {
					cutin "v_breid05",2;
					mes "[~]";
					mes "iHtzBfzQRD쨥KK";
					mes "KKKK";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "jBwJMH";
					mes "PRwUrzN@!?";
					next;
					cutin "v_breid02",2;
					mes "[~]";
					mes "KKDqjKK";
					mes "ǦrORMeJMrGtH";
					return;
				}
			}
			if(Zeny < 1499) {
				cutin "v_breid03",2;
				mes "[~]";
				mes "zKKZenyqQfFGTC";
				mes "cPBȤ@rOV";
				mes "NQzGC";
				return;
			}
			cutin "v_breid02",2;
			mes "[~]";
			mes "CJI";
			mes "wJMRBfzQzoQI";
			set Zeny,Zeny-1499;
			getitem 7182,5;
			set QUEST_VALENTINE1,QUEST_VALENTINE1+1;
			return;
		}
	}

	function PatternI {	//case17
		if(rand(3)==0) {
			cutin "v_breid05",2;
			mes "[~]";
			mes "ǦǤBǽǯVnH";
			next;
			if(select("BjnN@","BeqKK")==1) {
				if(Sex==0) {
					//լdH
				}
				cutin "v_breid02",2;
				mes "[~]";
				mes "DKKDsQpB";
				mes "nUsRrB";
				mes "|=Ǧ|R|OC";
				mes "DKBǽǯy";
				mes "JMsroC";
				next;
				mes "[~]";
				mes "ʤHrQpB";
				mes "@KǸMFpPGH";
			}
			else if(Sex==0) {
				cutin "v_breid05",2;
				mes "[~]";
				mes "DKKKK";
				mes "DsGJFpBsV͹FRNi";
				mes "MsC";
				next;
				mes "[~]";
				mes "`BORBNJM";
				mes "oOFvjQpQ!?";
				mes "ǽǯUykJMr͹Fp";
				mes "FeFe@KipJFpB";
				mes "iǩnQpoQO";
				mes "JFGGI";
				getitem 559,1;
			}
			else {
				cutin "v_breid05",2;
				mes "[~]";
				mes "DJKKFeR`rO";
				mes "ceizGoC";
				mes "MrO`FKUB";
				mes "HnJORQrQC";
				next;
				mes "[~]";
				mes "DsRBHRrRV̾AU~GC";
				mes "ǽǯQpBjUHV";
				mes "zNsrpQC";
				next;
				mes "[~]";
				mes "iǸ@rۤrQpB";
				mes "nUsRr";
				mes "|=Ǧ|R|OC";
				mes "ǽǯyJMsroC";
				set QUEST_VALENTINE1_FLAG,1;
			}
			set QUEST_VALENTINE1,18;
			return;
		}
	}

	function PatternJ {	//case18
		cutin "v_breid01",2;
		mes "[~]";
		mes "UnUsRr";
		mes "|=Ǧ|JMB";
		mes "ǽǯyJMrC";
		next;
		mes "[~]";
		mes "RQpBǩi";
		mes "RJMOoC";
		return;
	}

	function PatternK {	//case19
		cutin "v_breid01",2;
		mes "[~]";
		mes "PGKKH";
		mes "UǽǯVGtH";
		if(Sex==0) {
			mes "ǦǩRMpsrOVB";
			mes "spQpQC";
		}
		else {
			mes "CYBǨRi";
			mes "ǸMrOC";
		}
		next;
		if(QUEST_VALENTINE1_FLAG==1) {
			mes "[~]";
			mes "u궡GJFBHꤤO";
			mes "ۤRQJMsMqOC";
			mes "ݩGBiGmRpQHjQC";
			mes "JFoC";
			mes "sVBǦpOsUǸGC";
			mes "HRrOC";
			getitem 573,1;
			set QUEST_VALENTINE1_FLAG,0;
		}
		else {
			mes "[~]";
			mes "KK";
			mes "NǩOX|FOB";
			mes "sQoKK";
		}
		set QUEST_VALENTINE1,20;
		return;
	}

	function PatternL {	//case20
		cutin "v_breid01",2;
		mes "[~]";
		mes "iMGKK`QI";
		mes "ǿǨǿI";
		mes "U!!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "XJJMe@TC";
		next;
		cutin "v_breid02",2;
		mes "[~]";
		mes "zKK@UBK_r";
		mes "vpQGtH";
		mes "GpBy@aRQjQB";
		mes "OJMTC";
		return;
	}
}

prontera.gat,0,0,0	script	V_BreidTimer	-1,{
	end;
OnTimer180000:
	set callfunc("ValentineBreid",0),0;	//ƼƤHP|ǻǿǽǿǫѰ
	end;
}

// ~ 24 1517
prt_fild05.gat,360,252,3	script	~#Valentine1	733,{
	if(gettime(3)>= 2 && gettime(3)< 4) callfunc "ValentineBreid",1,2,1,3;
	if(gettime(3)>=15 && gettime(3)<17) callfunc "ValentineBreid",1,1,3,1;
	end;
OnInit:
	hideonnpc;
	if((gettime(3)>=2 && gettime(3)<4) || (gettime(3)>=15 && gettime(3)<17))
		hideoffnpc;
	end;
OnClock0205:
OnClock1505:
	hideoffnpc;
	end;
OnHour04:
OnHour17:
	hideonnpc;
	end;
}

// ~ 47 1719
prt_fild08.gat,162,367,5	script	~#Valentine2	733,{
	if(gettime(3)>= 4 && gettime(3)< 7) callfunc "ValentineBreid",2,2,1,3;
	if(gettime(3)>=17 && gettime(3)<19) callfunc "ValentineBreid",2,1,3,2;
	end;
OnInit:
	hideonnpc;
	if((gettime(3)>=4 && gettime(3)<7) || (gettime(3)>=17 && gettime(3)<19))
		hideoffnpc;
	end;
OnClock0405:
OnClock1705:
	hideoffnpc;
	end;
OnHour07:
OnHour19:
	hideonnpc;
	end;
}

// ~ 810 2123
prontera.gat,116,69,3	script	~#Valentine3	733,{
	if(gettime(3)>= 8 && gettime(3)<10) callfunc "ValentineBreid",3,1,2,1;
	if(gettime(3)>=21 && gettime(3)<23) callfunc "ValentineBreid",3,2,2,1;
	end;
OnInit:
	hideonnpc;
	if((gettime(3)>=8 && gettime(3)<10) || (gettime(3)>=21 && gettime(3)<23))
		hideoffnpc;
	end;
OnClock0805:
OnClock2105:
	hideoffnpc;
	end;
OnHour10:
OnHour23:
	hideonnpc;
	end;
}

// ~ 1215
prontera.gat,58,70,3	script	~#Valentine4	733,{
	callfunc "ValentineBreid",4,1,4,1;
	end;
OnInit:
	if(gettime(3)<12 || gettime(3)>=15)
		hideonnpc;
	end;
OnClock1205:
	hideoffnpc;
	end;
OnHour15:
	hideonnpc;
	end;
}


//==============================================================
// ǵǩ
//	 2 4	t		ǫǤǵġ	WeJs
//	 4 6			ǫǤǵġ	WeJs
//	 7 9	s		ǫǤǵġ	WeJs
//	 911	t		ǫǤǵġ	WeJs
//	1113	t		ǫǤǵġ	WeJs
//	1315	sΡ]ǫǷ^	ǫǤǵġ	WeJs
//	1517			ǫǤǵġ	WeJs
//	1719			ǫǤǵġ	WeJs
//	1921	c		ǫǤǵġ	WeJs
//	2123	s		ǫǤǵġ	WeJs
// Function
//	getarg(0)	̪U|ܤe
//		0=ǿǫUѷӴM
//		1=	2=]	3=K	4=ݴ	5=ݩ]	6=t
//	getarg(1)	~U~Ĥe
//		1=t	2=	3=s	4=t	5=s2	6=	7=c
//	getarg(2)	ǫǤǵĥi_
//		1=i	2=i	3=~eNi	4=WeJsUfi
//--------------------------------------------------------------

function	script	ValentineSprakki	{
	if(getarg(0)==0)
		return 'flag;	//yMפF
	if((Weight*100/MaxWeight) >= 90) {
		mes "ҫ|~UqhFh";
		mes "|~yOrONeBz-";
		mes "-ҫ|~ypMpBA";
		mes "MG-";
		close;
	}
	if('flag) {	//ƼƤHP|ǻǿǽ
		mes "-DG-";
		mes "-JMpBeFnyo-";
		close;
	}
	set 'flag,1;
	initnpctimer "V_SprakkiTimer";
	switch(QUEST_VALENTINE2) {
		case 0:
			function PatternA;
			PatternA getarg(0);
			break;
		default:
			function PatternB;
			PatternB getarg(0),getarg(1);
			break;
		case 10:
			function PatternC;
			PatternC 0,0,getarg(2);
			break;
		case 11:
			function PatternD;
			PatternD;
			break;
		case 12:
			function PatternE;
			PatternE;
			break;
		case 13:
			function PatternF;
			PatternF 0,0,getarg(2);
			break;
		case 14:
			function PatternG;
			PatternG;
			break;
		case 15:
			function PatternH;
			PatternH;
			break;
		case 16:
			function PatternI;
			PatternI 0,0,getarg(2);
			break;
	}
	set 'flag,0;
	close2;
	cutin "dummy",255;
	return;

	function PatternA {	//case0
		switch(getarg(0)) {
		default:
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "UN@H";
			mes "QFipUoR";
			mes "NMrNnH";
			next;
			if(select("DN@","kBHe@")==1) {
				mes "[ǵǩ]";
				mes "vB^I";
				mes "pVHpRMpeGiQMB";
				mes "qXQJFUN@";
				mes "PNMrQp";
				mes "o|Oiqe@oTH";
				next;
				mes "[ǵǩ]";
				mes "QFVDR";
				mes "PNKyQJMrzN@H";
				mes "pV@NռUɧUO";
				mes "ǫǷ~Ǽ¾ȫUy";
				mes "MrzN@C";
				next;
				mes "[ǵǩ]";
				mes "BC¤jtR\iy";
				mes "MrzN@B";
				mes "@RpJjeBzH";
				next;
				if(select("KKVMeBz","]UeeNVBKQDG^")==2) {
					mes "["+strcharinfo(0)+"]";
					mes "]iARFpNyKFU";
					mes "@WsMeKKC";
					mes "@VjR~]M";
					mes "@UysoC^";
					next;
					cutin "v_sprakki05",2;
					mes "["+strcharinfo(0)+"]";
					mes "pJFOVMsMGI";
					mes "VVVKK";
					mes "NVBUNsN§I";
					return;
				}
			}
			mes "[ǵǩ]";
			mes "pBNVyQJMrN@H";
			mes "UȼˡH@FGUqq@qH";
			mes "DjQsWKK?!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "DzQvQN@!!!!";
			next;
			mes "[ǵǩ]";
			mes "VBDzQvQUJMM";
			mes "eFC";
			mes "RGJFpB";
			mes "eApUyQzNrNnTC";
			break;
		case 4:
		case 5:
			cutin "v_sprakki05",2;
			mes "[ǵǩ]";
			mes "pB~UKK";
			if(getarg(0)==4)
				mes "p@RpJjrQzMB";
			else {
				mes "zQ]DKK@R";
				mes "pJjrQzMB";
			}
			mes "N@H";
			next;
			if(select("NiQN@","hMFeqeBz")==1) {
				cutin "v_sprakki01",2;
				mes "[ǵǩ]";
				mes "DN@C";
				mes "𤸮QUV}ON@C";
				if(getarg(0)==4) {
					mes "QVoseFH";
					mes "yseFH";
				}
				else
					mes "pVBifUɶQUN@oKK";
				break;
			}
			mes "[ǵǩ]";
			mes "hUN@H@@H";
			mes "PhzN@H";
			mes "BJOKKeAVvyKK";
			next;
			misceffect 207,"";
			percentheal 100,0;
			mes "[ǵǩ]";
			mes "JBzQR!?";
			mes "YPˡKK";
			mes "ġBHjzOFJMe@H";
			next;
			mes "[ǵǩ]";
			mes "PN@H";
			mes "eGhfe@KKH";
			mes "hzQKK";
			mes "pBeGN@p";
			mes "eOiRyQzN@KK";
			next;
			if(select("qOI@RQqeF","hI@YPvGI")==1) {
				cutin "v_sprakki02",2;
				mes "[ǵǩ]";
				mes "}JFKKI";
				mes "DsQiUNFp";
				mes "߰tGJFzN@C";
				break;
			}
			mes "[ǵǩ]";
			mes "jJI@ZJqFKK";
			mes "DzQRsWQMi";
			mes "jQN@C";
			mes "@aRzWJFURKK";
			mes "hzQKKNKK";
			next;
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "VBHjzOkJMfBe@C";
			mes "NiKKDzQR";
			mes "HU۷NyLMJOs]UV";
			mes "§N@oH";
			next;
			mes "[ǵǩ]";
			mes "DzQHnJOF@Ni";
			mes "KMeHGJM";
			mes "rzN@pKK";
			mes "eBpVN@PTC";
			break;
		case 6:
			mes "OMiuCR";
			mes "qyMroGC";
			next;
			if(select("yqMrzN@H","]QN")==2) {
				mes "-rUyhF-";
				return;
			}
			cutin "v_sprakki05",2;
			mes "[ǵǩ]";
			mes "jJKK";
			next;
			mes "[ǵǩ]";
			mes "KKtNVRRQO";
			mes "N@oKKC";
			next;
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "JH";
			mes "pyqMF";
			mes "qFUN@H";
			mes "pV@UMyqMeFC";
			mes "QFVqyeFH";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "KK";
			mes "pVKK";
			next;
			input '@mes$;
			mes "["+strcharinfo(0)+"]";
			mes "KK";
			mes "pVKK";
			mes "^4A4AFF" +'@mes$+ "^000000O";
			mes "qeF!!";
			next;
			mes "[ǵǩ]";
			mes '@mes$+ "N@KK";
			mes "VDGrNnH";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "@ɥMoqV{DN@oH";
			next;
			cutin "v_sprakki02",2;
			mes "[ǵǩ]";
			mes "\\JBDsVN@oC";
			mes "V@UMVJMeBzC";
			next;
			mes "^4A4AFF-KKOkVpnND쨥O";
			mes "yXMLzG-^000000";
			next;
			mes "[ǵǩ]";
			mes "UKKotsW";
			mes "_CZRMseBzH";
			mes "NVyɴJMe@p";
			mes "eFKRsr";
			mes "qeBzKK";
			next;
			mes "[ǵǩ]";
			mes "NUqXV";
			mes "@NռˡBǫǷ~ǼUB";
			mes "tU׹DkOGN@";
			mes "zBOMiDN@KKC";
			next;
			mes "[ǵǩ]";
			mes "DsOpVUqɶR";
			mes "~X@rONeBzC";
			next;
			if(select("KNiCZRe@oI","DzQKiqVQ")==2) {
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "DN@oTKK";
				mes "kJXq쭱UR";
				mes "DzQ@y@rUV";
				mes "§N@oTKKC";
				return;
			}
			mes "[ǵǩ]";
			mes "N@!? ^I";
			mes strcharinfo(0)+ "zBN@TH";
			mes "HjzOMe@C";
			mes "pO͹FRQJMGI";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "OtNUqVGJFUH";
			next;
			mes "[ǵǩ]";
			mes "zKKKN@C";
			mes "NiBVipU@y";
			mes "DJsMsFoN@C";
			next;
			mes "^4A4AFF-QFR@rǵǩUnP";
			mes "W@eF-^000000";
			if('name$=="" || rand(3)==0)
				set 'name$,strcharinfo(0);
			set QUEST_VALENTINE2,1;
			return;
		}
		//6H~U
		mes "^4A4AFF-kVBvARLzN";
		mes "qy^F-^000000";
		next;
		mes "[ǵǩ]";
		mes "UKKotsW";
		mes "eFCZRMseBzH";
		mes "KiNɴyMe@p";
		mes "MFGrO^N@C";
		next;
		mes "[ǵǩ]";
		mes "pUqXOWB";
		mes "@NռkǫǷ~ǼUB";
		mes "DsRjtUk׹Dk";
		mes "GQUN@KK";
		next;
		mes "[ǵǩ]";
		mes "zBqVMKK";
		next;
		if(select("NVBɶyKMCZRe@T","hzQBUNKK")==2) {
			cutin "v_sprakki03",2;
			mes "[ǵǩ]";
			mes "DN@BݩN@C";
			mes "}͹FRQsrOJFURKK";
			next;
			switch(getarg(0)) {
			case 1:
				mes "[ǵǩ]";
				mes "pBhsMeJFUN";
				mes "HnJOeQOKK";
				mes "iXMJMGC";
				return;
			case 2:
			case 5:
				mes "[ǵǩ]";
				mes "iHHMBjNFC";
				mes "hsMe@UNBspfe@C";
				mes "iXMJMipe@H";
				return;
			case 3:
				mes "[ǵǩ]";
				mes "pVMrKy";
				mes "QsWQpQUN";
				mes "iqGe@H";
				return;
			case 4:
				mes "[ǵǩ]";
				mes "DtDtB@Nռ";
				mes "pyjRe@C";
				mes "iXMJMGe@H";
				return;
			}
			return;
		}
		cutin "v_sprakki02",2;
		mes "[ǵǩ]";
		mes "N@!? ^I";
		mes strcharinfo(0)+ "zBN@TH";
		mes "pU͹FRQJMGI";
		next;
		switch(getarg(0)) {
		case 2:
			mes "[ǵǩ]";
			mes "iHHMBjNFC";
			mes "hsMe@UNBspfe@C";
			next;
			mes "[ǵǩ]";
			mes "eFCZRMGTC";
			mes "]iDQJMeJFUNB";
			mes "mJqvqe@C";
			break;
		case 4:
			mes "[ǵǩ]";
			mes "BDGC";
			mes "FUU@Nռ";
			mes "LeRysMUC";
			mes "rORHQzN@I";
			next;
			mes "[ǵǩ]";
			mes "bPBȫRNi";
			mes "CZRMGTC";
			break;
		default:
			mes "[ǵǩ]";
			mes "eFCZRMGTC";
			break;
		}
		next;
		mes "^4A4AFF-QFR@rǵǩUnP";
		mes "W@eF-^000000";
		if('name$=="" || rand(3)==0)
			set 'name$,strcharinfo(0);
		set QUEST_VALENTINE2,1;
		return;
	}

	function PatternB {	//case19
		switch(getarg(1)) {
		case 1:
			if(rand(3)==0) {
				cutin "v_sprakki01",2;
				mes "[ǵǩ]";
				mes "B" +strcharinfo(0)+ "zI";
				mes "tJMeBzH";
				mes "JMFpB";
				mes "JMFGFUN@KK";
				next;
				if(countitem(523)) {
					if(select("qe@o","VJMeBz")==1) {
						mes "["+strcharinfo(0)+"]";
						mes "JMe@oCPEC";
						mes "RzN@H";
						next;
						mes "[ǵǩ]";
						mes "MGBUӪC";
						mes "V\sBFVZMeJMKK";
						mes "yMiB@RM";
						mes "ezN@C";
						next;
						mes "[ǵǩ]";
						mes "aiIQtysWB";
						mes "RQJMsrOzN@C";
						next;
						delitem 523,1;
						cutin "v_sprakki02",2;
						mes "[ǵǩ]";
						mes "PiqOC";
						next;
						mes "^4A4AFF-QFR@rǵǩUnP";
						mes "W@eF-^000000";
						set QUEST_VALENTINE2,QUEST_VALENTINE2+1;
						return;
					}
				}
				mes "["+strcharinfo(0)+"]";
				mes "VJMQzN@C";
				next;
				mes "[ǵǩ]";
				mes "DN@KKݩN@C";
				mes "BtRHJMJMQjKK";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "Gt򥲭nQzN@H";
				next;
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "MGBUӪC";
				mes "V\sBFVZMeJMKK";
				mes "yMiB@RM";
				mes "ezN@C";
				next;
				mes "[ǵǩ]";
				mes "aiIQtysWB";
				mes "RQrOJFzN@KK";
				return;
			}
			if(getarg(0)==1) {
				cutin "v_sprakki01",2;
				mes "[ǵǩ]";
				mes "HnP@ɶNnH";
				mes "BJpJjJFzN@p";
				mes "kKNi@FN@T";
				next;
				mes "[ǵǩ]";
				mes "zQVQzOQ";
				mes "`MFǫǿǩ";
				mes "YOsQU";
				mes "N@TKK";
				next;
				if(countitem(538)) {
					if(select("ǫǿǩy@","DN@T")==1) {
						mes "[ǵǩ]";
						mes "pBsV";
						mes "oNFǫǿǩN@TH";
						mes "v";
						if(Sex==0) {
							mes "kJXqPkUlPh";
							mes "qrOtrzNn";
						}
						next;
						cutin "v_sprakki02",2;
						mes "[ǵǩ]";
						mes "ǫǿǩRXNiXe@TC";
						mes "]PRyJsFN@C";
						mes "ǢǴǵOeq";
						mes "vqeBzPTC";
						next;
						mes "^4A4AFF-ǵǩtXF";
						mes "pQfRVBRQ@";
						mes "U}";
						mes "TspsMF-^000000";
						next;
						mes "^4A4AFF-ǢSUkkJX";
						mes "qy@r-";
						mes "-@fgOfUJXR";
						mes "̻JXꭻqsr-^000000";
						percentheal 100,0;
						misceffect 83,"";
						delitem 538,1;
						return;
					}
				}
				mes "[ǵǩ]";
				mes "pVeOiRƲz";
				mes "NsWBR";
				mes "kKy@JMrzN@PKK";
				mes "QQeNQN@TC";
				return;
			}
			if(getarg(0)==2) {
				cutin "v_sprakki02",2;
				mes "[ǵǩ]";
				mes "BJpJjJFUN@pB";
				mes "NizNGC";
				mes "Re@H";
				next;
				switch(select("Ǭ}","Ǣǿ}","ǿǫǵ}","cN@")) {
				case 1:
					mes "[ǵǩ]";
					mes "ǢRyJsFN@C";
					mes "ǢǴǵOeq";
					mes "vqeBzPTC";
					next;
					mes "^4A4AFF-ǵǩtXF";
					mes "pQfRVBRQ@";
					mes "U}";
					mes "TspsMF-^000000";
					next;
					mes "^4A4AFF-ǢSUkkJX";
					mes "qy@r-";
					mes "-@fgOfUJXR";
					mes "̻JXꭻqsr-^000000";
					misceffect 83,"";
					return;
				case 2:
					mes "[ǵǩ]";
					mes "UyFN@TC";
					mes "ѡKKN~N@TC";
					mes "Ǣǿ}VDR~HqU";
					mes "nzNgiUN@pTC";
					next;
					mes "[ǵǩ]";
					mes "ǣ~NVUok@UNB";
					mes "~HqUozNeFoC";
					mes "Ǣ}psFUO";
					mes "ǤǼǢ}psFUNV";
					mes "HpN@TC";
					next;
					mes "[ǵǩ]";
					mes "pRVJXqvqeBzKK";
					mes "QFVHvrzN@H";
					mes "ѡKKXeFC";
					mes "BPEC";
					next;
					mes "^4A4AFF-ktXFǧǿRV";
					mes "ŦUGiO`sMM";
					mes "QqyoMr-^000000";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "vJBQBGs!!";
					mes "@JW!!@DsRKK";
					mes "kFpOMMHc!!";
					misceffect 118,"";
					next;
					cutin "v_sprakki05",255;
					mes "[ǵǩ]";
					mes "KKzGOQJFUN@H";
					mes "Ǣǿ}VDiUN@oH";
					mes "iBPM`FzN@!!";
					return;
				case 3:
					cutin "v_sprakki01",2;
					mes "[ǵǩ]";
					mes "iUyVCXvBFB";
					mes "ǿǫǵ}N@TC";
					mes "qiUYjN@oC";
					next;
					mes "[ǵǩ]";
					mes "VKK";
					mes "zNfsWvqe@KK";
					next;
					mes "^4A4AFF-ktXFǧǿRV";
					mes "ǫUGiO`sMM";
					mes "긭@T}JMr-";
					mes "-DMBدt@r{";
					mes "jPQqyJMr-^000000";
					next;
					mes "^4A4AFF-VKK-^000000";
					next;
					mes "[ǵǩ]";
					mes "JOKKysWB";
					mes "PQyDnVQDN@TKK";
					mes "sVqygfN@TC";
					mes "jPQUqymJqlOB";
					mes "Y@Jq@rzN@oC";
					misceffect 14,"";
					return;
				case 4:
					cutin "v_sprakki01",2;
					mes "[ǵǩ]";
					mes "DN@KKݩN@C";
					return;
				}
			}
		case 2:
			if(rand(3)==0) {
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "KK!!";
				mes "xJFvKKpJMB";
				mes "PMǴQzGtKK";
				next;
				menu "PFzN@H",-;
				mes "[ǵǩ]";
				mes "DsKK";
				mes "yMFUN@B";
				mes "JqǲĥUyOM";
				mes "JMeJFUN@KK";
				next;
				mes "[ǵǩ]";
				mes "VKK𵹮pvQsW";
				mes "QN@TKK";
				mes "BeJFPsWB";
				mes "DsNiQC";
				mes "zQOyDUiN@B";
				mes "sOPסBJMeBzKKH";
				next;
				if(countitem(736)) {
					if(select("yHBOe@H","JMe@Ce@o")==2) {
						cutin "v_sprakki05",2;
						mes "[ǵǩ]";
						mes "!?";
						mes "KiyHBMrHQzMB";
						mes "rvKK";
						mes "KKpJMrzN@TJ!?";
						next;
						mes "[ǵǩ]";
						mes "^4A4AFF-hpyqXB";
						mes "kUeRmF-";
						mes "-UǩOJF-^000000";
						next;
						mes "[ǵǩ]";
						mes "J!!@RyJMrI";
						mes "DsRKK";
						mes "pJFODJq!!";
						mes "sBRpRGrUN@H";
						next;
						delitem 736,1;
						cutin "v_sprakki02",2;
						mes "[ǵǩ]";
						mes "qOI";
						mes "QFfFRuHVB";
						mes "@R@HQN@TI";
						next;
						mes "^4A4AFF-QFR@rǵǩUnP";
						mes "W@eF-^000000";
						set QUEST_VALENTINE2,QUEST_VALENTINE2+1;
						return;
					}
				}
				else {
					mes "["+strcharinfo(0)+"]";
					mes "@RVJMeBzTKK";
					next;
				}
				mes "[ǵǩ]";
				mes "N@oTKK";
				mes "KiyHBMrHQzMB";
				mes "eBzoTKK";
				mes "kJXqBNƲzRJM";
				mes "QjǼN@TC";
				next;
				mes "[ǵǩ]";
				mes "VBiJOVeQjKK";
				return;
			}
			if(getarg(0)==1) {
				cutin "v_sprakki01",2;
				mes "[ǵǩ]";
				mes "HzOVJMe@H";
				mes "Kk_IiN@PB";
				mes "d@fjN@oC";
				next;
				mes "[ǵǩ]";
				mes "VBB@rO}N@oC";
				mes "pGDzQy@rUJM";
				mes "CMe@TKK";
				next;
				cutin "v_sprakki02",2;
				mes "[ǵǩ]";
				mes "VpBspy@r";
				mes "OtQUN@KK";
				next;
				if(select("pi@R`FN@","B§eFC")==1) {
					cutin "v_sprakki03",2;
					mes "[ǵǩ]";
					mes "KK";
					mes "~UOy@rOB";
					mes "ƲzRpsMee@UNKK";
					mes "hzQC";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "DN@BݩN@C";
					mes "U]HjeFTC";
					mes "§e@TC";
					mes "KKPNy`oQKK";
					return;
				}
				mes "[ǵǩ]";
				mes "ѡKKhzQTB";
				mes "yvBHjJMC";
				mes "eFNiMGsWB";
				mes "Nie@TC";
				return;
			}
			if(getarg(0)==2) {
				cutin "v_sprakki01",2;
				mes "[ǵǩ]";
				mes "UɶVRN}N@TC";
				mes "eGHnJOGrsPB";
				mes "VPzQ@RQrQJM";
				mes "rzN@C";
				next;
				mes "[ǵǩ]";
				mes strcharinfo(0)+ "zVB";
				mes "PMzQɶR";
				mes "pyXTMFzN@H";
				next;
				if(select("FGh}NKK","KUKNRHHJFzN@")==1) {
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes "i챽JMzGpPN@H";
					mes "NQOBiHeBzoH";
					return;
				}
				mes "[ǵǩ]";
				mes "KơBjQzN@TKK";
				mes "NiBHzOyhMGTC";
				mes "]QzN@H";
				mes "MVHjzOXrzN@H";
				next;
				cutin "v_sprakki03",255;
				mes "[ǵǩ]";
				mes "pVߥQUNB";
				mes "]ԤQzN@KK";
				mes "jjUFhQUNFQUN@B";
				mes "HnJODRQqe@KK";
				next;
				cutin "v_sprakki02",255;
				mes "[ǵǩ]";
				mes "NiBWqyRMMV";
				mes "eBzTC";
				mes strcharinfo(0)+ "zUoQ";
				mes "uHRiX|FKK";
				mes "TJH";
				return;
			}
		case 3:
		case 5:
			if(rand(3)==0) {
				cutin "v_sprakki05",2;
				mes "[ǵǩ]";
				mes "jJI@vvJ!!";
				mes "DBDI@yKM!!";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "H@QzN@H";
				mes "RyKrzN@H";
				next;
				mes "[ǵǩ]";
				mes "yMFpRKK";
				mes "ǳyzMFpRKK";
				mes "BUKKsI@s!!";
				next;
				mes "[ǵǩ]";
				mes "sXFzN@J!!";
				mes "uJNB@M";
				mes "@ǨFpʤVrO!!";
				next;
				if(select("v!!@khM!!","sN@H")==1) {
					mes "["+strcharinfo(0)+"]";
					mes "sQzMBeJ[phzG!!!!";
					return;
				}
				mes "[ǵǩ]";
				mes "DBDUWeyfRXQN!!";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "N긨OBW";
				mes "jQN@C";
				next;
				if(getarg(1)==3) monster "prt_castle.gat",167,164,"s",1051,1,"Thiefbug#Valentine";
				if(getarg(1)==5) monster "prt_castle.gat",33,165,"s",1051,1,"Thiefbug#Valentine";
				mes "^8C1010-ǧǱǧǱ-";
				mes "-ǪǪ@ǪǪ-^000000";
				next;
				mes "[ǵǩ]";
				mes "NKKXF!!";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "pqenH";
				mes "zQPN@oC";
				next;
				mes "^4A4AFF-pVDJO";
				mes "ysUWRWF-^000000";
				next;
				killmonster "prt_castle.gat","Thiefbug#Valentine";
				mes "^4A4AFF-ǿI-";
				mes "-ǽKK-^000000";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "JFI";
				mes "e@H@qeFoC";
				mes "\\\JKK";
				next;
				mes "[ǵǩ]";
				mes "DBDN@TKK";
				mes "VKKVKK";
				next;
				mes "[ǵǩ]";
				mes "BqOKK";
				mes "qOe@J!!";
				mes "NiBDUNIQN!!";
				next;
				if(select("VH@YPQ!?","jVҡBLeBzo")==1) {
					mes "["+strcharinfo(0)+"]";
					mes "QFUFhyJM";
					mes "JMFURKK";
					next;
					cutin "v_sprakki03",2;
					mes "[ǵǩ]";
					mes "JBVKKhzQKK";
					mes "NiKKNiKK";
					mes "DsBRzN@C";
					mes "vJMGC";
					next;
					mes "[ǵǩ]";
					mes "RPMe@KK";
				}
				else {
					cutin "v_sprakki03",2;
					mes "[ǵǩ]";
					mes "hzQKK";
					mes "RzN@KK";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Bvqe@oC";
					mes "syHVhN@iUTC";
					next;
					mes "[ǵǩ]";
					mes "DQzN@KK";
					mes "NǳUzy";
					mes "rONe@C";
					mes "RqOe@I";
				}
				next;
				mes "^4A4AFF-QFR@rǵǩUnP";
				mes "W@eF-^000000";
				set QUEST_VALENTINE2,QUEST_VALENTINE2+1;
				return;
			}
			if(getarg(0)==4) {
				mes "^4A4AFF-qyqQp";
				mes "ǳyzMrk";
				mes "QzOQDRr-^000000";
				next;
				cutin "v_sprakki02",2;
				mes "["+strcharinfo(0)+"]";
				mes "QzGN@TH";
				next;
				mes "[ǵǩ]";
				mes "VI@Njt_UNB";
				mes "eFUHypsrQJM";
				mes "QzOQHjJMKK";
				next;
				menu "UHH",-;
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "BBNiQzN@C";
				mes "DsjBpVǳUzy";
				mes "vpBQOQp";
				mes "HnJOuy~M";
				mes "GeBzH";
				return;
			}
			if(getarg(0)==5) {
				cutin "v_sprakki02",2;
				mes "[ǵǩ]";
				mes "pppBppp";
				mes "ǳUzifzQvJMB";
				mes "siXQpB";
				mes " B!!";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "QzGN@TH";
				next;
				mes "[ǵǩ]";
				mes "VI@Vhe@oC";
				mes "\\B̪fɶRB";
				mes "JDqƲzUjjyMe@C";
				next;
				mes "[ǵǩ]";
				mes "ǲľU|zRVB";
				mes "WQsPB";
				mes "@VOMrzN@oC";
				mes "KBǽǯNi";
				mes "@sroRQJFpB";
				mes "tWe@vC";
				next;
				mes "[ǵǩ]";
				mes "ǢǿKK";
				return;
			}
		case 4:
			if(QUEST_VALENTINE2_FLAG==1) {
				if(countitem(2608)) {
					mes "["+strcharinfo(0)+"]";
					mes "sKK";
					mes "UǲyJMGC";
					mes "QUHRJMrO";
					mes "NQMhzQC";
					next;
					cutin "v_sprakki05",2;
					mes "[ǵǩ]";
					mes "JH@jMsFUN@H";
					mes "PNKFzN@H";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "kBKFiUNVQMKK";
					mes "UKKpUiUQzN@C";
					mes "}JFpsyJMGC";
					next;
					mes "[ǵǩ]";
					mes "JBR}zN@H";
					mes "zNpBMFGe@C";
					mes "RqOe@I";
					next;
					delitem 2608,1;
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes strcharinfo(0)+ "zU";
					mes "qGOJMjRe@TC";
					next;
					mes "^4A4AFF-QFR@rkUnP";
					mes "jTRW@eF-^000000";
					set QUEST_VALENTINE2,QUEST_VALENTINE2+3;
					if(QUEST_VALENTINE2 > 10)
						set QUEST_VALENTINE2,10;
					set QUEST_VALENTINE2_FLAG,2;
					return;
				}
				cutin "v_sprakki01",2;
				mes "[ǵǩ]";
				mes "BN@H";
				mes "ovseFH";
				next;
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "eGBKJMQfFN@TC";
				mes "pieGKrO";
				mes "NMeBzCǱVDUee";
				mes "czkqDLMeeFC";
				next;
				if(select("AKMe@o","sHWVUrONeBz")==1) {
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes "DeNJjJMFGrQzM";
					mes "RĶQN@C";
					mes "NiKKGsN@C";
					mes "@R߰tMsrH";
					mes "DWR~MsrQzMKK";
					return;
				}
				mes "[ǵǩ]";
				mes "LzQMiN@oC";
				mes "p@HNjMfe@C";
				mes strcharinfo(0)+ "ziۤU";
				mes "KqNnpKK";
				mes "pVjVN@C";
				set QUEST_VALENTINE2_FLAG,2;
				return;
			}
			if(rand(3)==0) {
				if(QUEST_VALENTINE2_FLAG==2) {
					cutin "v_sprakki01",2;
					mes "[ǵǩ]";
					mes "BVoe@C";
					mes "p§MVrsPB";
					mes "pBH{OvNVQzN@C";
					mes "§QzMBeNbOzP";
					mes "FOQN@KK";
					next;
					mes "[ǵǩ]";
					mes "AJOURrOW";
					mes "QJMrUNBഫR";
					mes "eNyBzNfFzN@C";
					mes "DsRBUy";
					mes "ਣM^qFJFUC";
					next;
					mes "[ǵǩ]";
					mes "UyM^rQpB";
					mes "i§Rѥ[QMiURKK";
					mes "ѡKKkJMrzGtBpC";
					next;
					mes "[ǵǩ]";
					mes "pVi@@vrUNB";
					mes "ǣ~RrzN@C";
					mes "iJOUyO";
					mes "MW}JFQKK";
					mes "NiBQFO@rONF";
					mes "§RM}JFQC";
					next;
					mes "[ǵǩ]";
					mes "RPUqQjTC";
					mes "R@rPVKN@";
					mes "ѡKK";
					next;
					mes "^4A4AFF-kVDORRqlhF-^000000";
					return;
				}
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "PoKK";
				mes "jQiUy";
				mes "MeeFKKC";
				next;
				if(select("PFUDMfr","ORRQ")==2) {
					mes "-RQORF-";
					return;
				}
				mes "["+strcharinfo(0)+"]";
				mes "xqN@H";
				next;
				mes "[ǵǩ]";
				mes "KK" +strcharinfo(0)+ "zI";
				mes "Vǲy";
				mes "LMeJFzN@C";
				mes "ǲQOǱNeBzC";
				next;
				mes "[ǵǩ]";
				mes "pVۤUOiriUy";
				mes "MPkJMMW";
				mes "UNnKKC";
				next;
				if(select("pijMfen","ojMfMVH@PRqe@o")==2) {
					cutin "v_sprakki01",2;
					mes "[ǵǩ]";
					mes "VBojMfe@C";
					mes "߰tMsMqOC";
					return;
				}
				cutin "v_sprakki02",2;
				mes "[ǵǩ]";
				mes "RqOe@C";
				mes strcharinfo(0)+ "zV";
				mes "OMikN@TC";
				mes "RqOC";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "]ǲy@KRJM";
				mes "BWQH^";
				mes " ";
				mes "JMMGC";
				mes "ǲyjMe@C";
				next;
				mes "[ǵǩ]";
				mes "VC";
				mes "piaRRjMfe@C";
				mes "NsWǱRsFqeBzC";
				mes "Pot@e@KKC";
				set QUEST_VALENTINE2_FLAG,1;
				return;
			}
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "uQzN@TC";
			mes "eGQURKK";
			next;
			if(select("QFR|FMeF","OMKK")==1) {
				if(QUEST_VALENTINE2 < 5) {
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes "\\BsN@C";
					mes "DzQ@RV";
					mes "FseBzoH";
					next;
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes "tNnyWrUV";
					mes "Ye@UN";
					mes "NRCZRMGC";
					mes "VJMe@H";
					set QUEST_VALENTINE2,QUEST_VALENTINE2+1;
					return;
				}
				mes "[ǵǩ]";
				mes "cꤾVN@C";
				next;
				if(select("VN@H","N@ChzQ")==1) {
					mes "[ǵǩ]";
					mes "VCkFApNFpB";
					mes "pJMDMrR";
					mes "khMGC";
					mes "̪UƦ^pQp";
					mes "GOe@KKC";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "BNNJMGC";
					mes "nNQNN@KKC";
					next;
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes "vqeFC";
					mes "Bt_FUN@p";
					mes "qyenH";
					mes "i@򥭩MNroRC";
					return;
				}
				cutin "v_sprakki02",2;
				mes "[ǵǩ]";
				mes "vqeFC";
				mes "NVBqyenH";
				mes "i@򥭩MNroRC";
				return;
			}
			mes "[ǵǩ]";
			mes "DQzN@BjN@TC";
			next;
			mes "[ǵǩ]";
			mes "DGKKI";
			mes strcharinfo(0)+ "zU";
			mes "UByeJMenC";
			next;
			mes "[ǵǩ]";
			mes strcharinfo(0)+ "zU";
			mes "UBVKK";
			next;
			switch(rand(3)) {
				case 0:
					cutin "v_sprakki02",2;
					mes "[ǵǩ]";
					mes "vB@B}fFN@oH";
					mes "VRǽǴMfMV";
					mes "N@H";
					mes "ǬzRy";
					mes "@@rUi}iseBzTI";
					return;
				case 1:
					mes "[ǵǩ]";
					mes "qKKfFN@TC";
					mes "KiqqíQ@OQqDN@C";
					mes "íQUVB}ON@oTH";
					mes "ѡKK";
					return;
				case 2:
					cutin "v_sprakki05",2;
					mes "[ǵǩ]";
					mes "KKsVKKJOKK";
					mes "UBVKKUKKDUKK";
					mes "jRKK";
					next;
					mes "[ǵǩ]";
					mes strcharinfo(0)+ "zU";
					mes "LyJMe@KK";
					return;
			}
		case 6:
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "pppBppp";
			mes "HnJ[qFg";
			next;
			mes "[ǵǩ]";
			mes "^4A4AFF" +'name$+ "^000000zy";
			mes "sN@H";
			mes "OMiˤNQQzN@KK";
			next;
			mes "[ǵǩ]";
			mes "BORQFO`oO";
			mes "JFvNVQJFUN@C";
			return;
		case 7:
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "UKKpXMse@H";
			mes "VwRXJq@rNV";
			mes "qeBzpKK";
			return;
		}
	}

	function PatternC {	//case10
		if(getarg(2)==2 || getarg(2)==4 || rand(3)) {
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "YnJOMB";
			mes "^4A4AFF" +'name$+ "^000000zy";
			mes "sN@H";
			mes "OJMiǦǳQQzN@oKK";
			next;
			mes "[ǵǩ]";
			mes "NiB" +strcharinfo(0)+ "zi";
			mes "OMiN@oC";
			return;
		}
		cutin "v_sprakki01",2;
		mes "[ǵǩ]";
		mes "JOKK";
		mes "̪pBGl@qy";
		mes "MrzN@C";
		mes "iHtzJDqMrUN@KK";
		next;
		mes "[ǵǩ]";
		mes "DsNB@ǽǯy";
		mes "@JMfFOJFzN@C";
		mes "NiBǳyJMQzN@KK";
		next;
		mes "[ǵǩ]";
		mes "sUOqBpVȫeU";
		mes "ǱROH~ByXrO";
		mes "NQUN@CN@UNKK";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "pRBNvqRǳy";
		mes "RJsMMO";
		mes "vN@TH";
		next;
		mes "[ǵǩ]";
		mes "VI@C~RQrO";
		mes "ǽǯy@JM";
		mes "JMrpJje@C";
		mes "ǳǦaUQUN@B";
		mes "ǳyHnJOJMM";
		mes "seBzH";
		next;
		if(select("wsN@","DzQlVQN@TKK")==2) {
			cutin "v_sprakki03",2;
			mes "[ǵǩ]";
			mes "DN@KK";
			mes "BNVeBzp";
			mes "jVN@C";
			mes "NiBǳyJMFb";
			mes "URKK";
			next;
			mes "[ǵǩ]";
			mes "ǽǯġKK";
			mes "@URKK";
			mes "DeBzH";
			return;
		}
		mes "[ǵǩ]";
		mes "qOe@I";
		mes "F]zBǳǦaUV";
		mes "Ҧ~Pq|ǻN";
		mes "ӽyMrOe@C";
		next;
		mes "[ǵǩ]";
		mes "DsNV@e@TI";
		set QUEST_VALENTINE2,11;
		set QUEST_VALENTINE2_FLAG,0;
		return;
	}

	function PatternD {	//case11
		cutin "v_sprakki01",2;
		mes "[ǵǩ]";
		mes "ǳǦaUVj";
		mes "|ǻNӽyMe@C";
		mes "ǣ~NpMFB";
		mes "FZFZXTMVǽǯy";
		mes "RJMFqMeFC";
		next;
		mes "[ǵǩ]";
		mes "KǳysrO";
		mes "ieFpB";
		mes "pUWeyXBWrOe@C";
		mes "ot@e@TC";
		return;
	}

	function PatternE {	//case12
		cutin "v_sprakki01",2;
		mes "[ǵǩ]";
		mes "ǳyJMMsFUN@!?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "BRqe@oC";
		mes "OtNR@srUN@H";
		mes "zQNH";
		mes "ǧǧǦBǫKK";
		mes "aηqlVQCnQUN@H";
		next;
		mes "^4A4AFF-ǵǩRǳǯpJF";
		mes "ǽǯUǳyF-^000000";
		next;
		mes "[ǵǩ]";
		mes "@JMfsWqe@oC";
		mes "NiBǧǧǦGQzMKK";
		mes "ǧǧǦyPN";
		mes "RJssWUNnH";
		mes "eGeGe~hN@TC";
		next;
		cutin "v_sprakki02",2;
		mes "[ǵǩ]";
		mes "ORqOe@C";
		mes "pBKi" +strcharinfo(0)+ "zR";
		mes "qOJMWqJMe@TC";
		mes "NiKKRsN@C";
		next;
		mes "^4A4AFF-QFR@rǵǩU˱K";
		mes "W@eF-^000000";
		set QUEST_VALENTINE2,13;
		return;
	}

	function PatternF {	//case13
		if(getarg(2)==1) {
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "YnJOMB";
			mes "^4A4AFF" +'name$+ "^000000zy";
			mes "sN@H";
			mes "OJMiǦǳQQzN@oKK";
			next;
			mes "[ǵǩ]";
			mes "NiB" +strcharinfo(0)+ "zi";
			mes "OMiN@oC";
			return;
		}
		cutin "v_sprakki01",2;
		mes "[ǵǩ]";
		mes "UKKUPN";
		mes "ǧǧǦyJMrrO";
		mes "yDeFC";
		mes "PRrsN@H";
		next;
		if(select("pjMfenH","pQN@")==2) {
			mes "[ǵǩ]";
			mes "kJXqLUOPN";
			mes "sQN@KK";
			mes "NDQHRTMfe@C";
			mes "ǧǧǦyRU";
			mes "zQRjGQzMKK";
			return;
		}
		cutin "v_sprakki02",2;
		mes "[ǵǩ]";
		mes "N@!? ^I";
		mes "DsjBǧǧǦy";
		mes "^4A4AFF5K^000000@MiN@H";
		mes strcharinfo(0)+ "zV";
		mes "OJMiuN@TI";
		set QUEST_VALENTINE2,14;
		return;
	}

	function PatternG {	//case14
		cutin "v_sprakki01",2;
		mes "[ǵǩ]";
		mes "@FǧǧǦVPQqeFH";
		next;
		if(countitem(7182)>=5) {
			delitem 7182,5;
			set QUEST_VALENTINE2,15;
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "@" +strcharinfo(0)+ "zI";
			mes "sNpiǽǯy";
			mes "@rONe@C";
			mes "\\BRqOI";
			next;
			mes "^4A4AFF-QFR@rǵǩU˱K";
			mes "W@eF-^000000";
			return;
		}
		cutin "v_sprakki03",2;
		mes "[ǵǩ]";
		mes "KKeGǧǧǦV";
		mes "RJspseBzC";
		mes "KKkVqBU_JM";
		mes "pQsWQpQNnH";
		mes "NiBDsVMIN@KK";
		return;
	}

	function PatternH {	//case15
		cutin "v_sprakki02",2;
		mes "[ǵǩ]";
		mes "MMGTB";
		mes "ǽǯy@qe@oC";
		mes strcharinfo(0)+ "zi";
		mes "PqOɴJMsFp";
		mes "ǽǯye@C";
		next;
		mes "[ǵǩ]";
		mes "iRǸFQp";
		mes "KNiǧǧǦy5K";
		mes "hMMGTC";
		mes "eqWNVqeBz";
		mes "p@JMe@C";
		next;
		mes "[ǵǩ]";
		mes "pNLBrɶV";
		mes "ON@C";
		mes "GmRrǳi";
		mes "QsWeBzC";
		mes "NiBDseNpVRe@C";
		next;
		mes "[ǵǩ]";
		mes "§RVpQiseBz";
		mes "PUHyhMqe@C";
		mes "oJFpJMGTC";
		getitem 558,1;
		set QUEST_VALENTINE2,16;
		return;
	}

	function PatternI {	//case16
		if(getarg(2)!=1 && getarg(2)!=4) {
			cutin "v_sprakki01",2;
			mes "[ǵǩ]";
			mes "YnJOMB";
			mes "^4A4AFF" +'name$+ "^000000zy";
			mes "sN@H";
			mes "OJMiǦǳQQzN@oKK";
			next;
			mes "[ǵǩ]";
			mes "NiB" +strcharinfo(0)+ "zi";
			mes "OMiN@oC";
			return;
		}
		cutin "v_sprakki02",2;
		mes "[ǵǩ]";
		mes "ǽǯy@qenH";
		mes "VBU|=Ǧ|zU";
		mes "ǽǯyo쨣eTGP";
		mes "@sroRQJFzN@oC";
		mes "\\JC";
		next;
		mes "[ǵǩ]";
		mes "ǽǯRWeyJsrOi";
		mes "NroRQqeFI";
		next;
		mes "[ǵǩ]";
		mes "PH@@NnH";
		mes "i@qǽǯyJMFp";
		mes "MGTC";
		mes "p@QWey";
		mes "JsMenI";
		next;
		if(select("ǽǯy@JMG","WeyJsMG")==1) {
			if(countitem(7182)<5) {
				cutin "v_sprakki03",2;
				mes "[ǵǩ]";
				mes "ǽǯy@JMF";
				mes "HVsQUN@KK";
				mes "UKKǧǧǦQO";
				mes "@rONQzN@C";
				mes "hzQKK";
				return;
			}
			mes "[ǵǩ]";
			mes "VI@zWJM@qe@oI";
			mes "Uǽǯyr";
			mes strcharinfo(0)+ "zUOy";
			mes "QJMsMrON@T";
			next;
			mes "[ǵǩ]";
			mes "NVKK";
			next;
			mes "[ǵǩ]";
			mes "XeFI";
			mes "pRMrQzM";
			mes "^N@I";
			if(rand(5)==0) {
				mes "^V~ǽǯR";
				mes "MfeFC";
				getitem 560,1;
			}
			else
				getitem 558,1;
			return;
		}
		getinventorylist;
		for(set '@i,0; '@i<@inventorylist_count; set '@i,'@i+1) {
			if(@inventorylist_id['@i] == 559 || @inventorylist_id['@i] == 560) {
				if(@inventorylist_card3['@i] && @inventorylist_card4['@i]) {
					mes "[ǵǩ]";
					mes "iWeJJMe@TKK";
					return;
				}
				mes "[ǵǩ]";
				mes "QFJMrBDU";
				mes getitemname(@inventorylist_id['@i])+ "R";
				mes "WeyJse@TC";
				next;
				mes "[ǵǩ]";
				mes "\\B" +strcharinfo(0)+ "zUWey";
				mes "JseFoC";
				mes "PN@H@WNMe@H";
				delitem @inventorylist_id['@i],1;
				getitem2 @inventorylist_id['@i],1,1,0,0,254,0,getcharid(0)&0xffff,(getcharid(0)>>16)&0xffff;
				return;
			}
		}
		cutin "v_sprakki03",2;
		mes "[ǵǩ]";
		mes "@qǽǯNQO";
		mes "WeyJsrOVNQN@KK";
		mes "hzQKK";
		return;
	}
}

prt_castle.gat,0,0,0	script	V_SprakkiTimer	-1,{
	end;
Ontimer180000:
	set callfunc("ValentineSprakki",0),0;	//ƼƤHP|ǻǿǽǿǫѰ
	end;
}

// ǵǩ 24 1113
prt_castle.gat,133,99,3	script	ǵǩ#Valentine1	90,{
	if(gettime(3)>= 2 && gettime(3)< 4) callfunc "ValentineSprakki",2,1,1;
	if(gettime(3)>=11 && gettime(3)<13) callfunc "ValentineSprakki",1,1,1;
	end;
OnInit:
	hideonnpc;
	if((gettime(3)>=2 && gettime(3)<4) || (gettime(3)>=11 && gettime(3)<13))
		hideoffnpc;
	end;
OnClock0205:
OnClock1105:
	hideoffnpc;
	end;
OnHour04:
OnHour13:
	hideonnpc;
	end;
}

// ǵǩ 46 1517
prt_castle.gat,33,106,3	script	ǵǩ#Valentine2	90,{
	if(gettime(3)>= 4 && gettime(3)< 6) callfunc "ValentineSprakki",2,2,1;
	if(gettime(3)>=15 && gettime(3)<17) callfunc "ValentineSprakki",1,2,1;
	end;
OnInit:
	hideonnpc;
	if((gettime(3)>=4 && gettime(3)<6) || (gettime(3)>=15 && gettime(3)<17))
		hideoffnpc;
	end;
OnClock0405:
OnClock1505:
	hideoffnpc;
	end;
OnHour06:
OnHour17:
	hideonnpc;
	end;
}

// ǵǩ 79 2123
prt_castle.gat,169,168,3	script	ǵǩ#Valentine3	90,{
	if(gettime(3)>= 7 && gettime(3)< 9) callfunc "ValentineSprakki",4,3,1;
	if(gettime(3)>=21 && gettime(3)<23) callfunc "ValentineSprakki",5,3,1;
	end;
OnInit:
	hideonnpc;
	if((gettime(3)>=7 && gettime(3)<9) || (gettime(3)>=21 && gettime(3)<23))
		hideoffnpc;
	end;
OnClock0705:
OnClock2105:
	hideoffnpc;
	end;
OnHour09:
OnHour23:
	hideonnpc;
	end;
}

// ǵǩ 911
prt_church.gat,92,115,7	script	ǵǩ#Valentine4	90,{
	callfunc "ValentineSprakki",6,4,2;
	end;
OnInit:
	if(gettime(3)<9 || gettime(3)>=11)
		hideonnpc;
	end;
OnClock0905:
	hideoffnpc;
	end;
OnHour11:
	hideonnpc;
	end;
}

// ǵǩ 1315
prt_castle.gat,32,168,3	script	ǵǩ#Valentine5	90,{
	callfunc "ValentineSprakki",3,5,3;
	end;
OnInit:
	if(gettime(3)<13 || gettime(3)>=15)
		hideonnpc;
	end;
OnClock1305:
	hideoffnpc;
	end;
OnHour15:
	hideonnpc;
	end;
}

// ǵǩ 1719
prt_castle.gat,172,102,3	script	ǵǩ#Valentine6	90,{
	callfunc "ValentineSprakki",1,6,4;
	end;
OnInit:
	if(gettime(3)<17 || gettime(3)>=19)
		hideonnpc;
	end;
OnClock1705:
	hideoffnpc;
	end;
OnHour19:
	hideonnpc;
	end;
}

// ǵǩ 1921
prt_castle.gat,165,28,3	script	ǵǩ#Valentine7	90,{
	callfunc "ValentineSprakki",3,7,2;
	end;
OnInit:
	if(gettime(3)<19 || gettime(3)>=21)
		hideonnpc;
	end;
OnClock1905:
	hideoffnpc;
	end;
OnHour21:
	hideonnpc;
	end;
}

// sΥǼ~
prt_castle.gat,0,0,0	script	Thiefbug#Valentine	-1,{}


//==============================================================
alberta.gat,26,243,3	script	ǳǯ=ǳǦ	96,{
	if((Weight*100/MaxWeight) >= 90) {
		mes "[ǳǯ=ǳǦ]";
		mes "ȼˡByFz";
		mes "HUoN@TC";
		mes "ǧzRwRQJM";
		mes "MVNnH";
		close;
	}
	if(QUEST_VALENTINE1==7) {
		if(countitem(7182)<5) {
			mes "[ǳǯ=ǳǦ]";
			mes "ǧKKǧǧǦKK";
			next;
			mes "[ǳǯ=ǳǦ]";
			mes "KKhzQC";
			mes "ǧǧǦyJMpF";
			mes "tFUOeFC";
			mes "kJXq`FU";
			mes "ǧǧǦyHNVqeBzTC";
			close;
		}
		mes "[ǳǯ=ǳǦ]";
		mes "ǧKKǧǧǦ!!!";
		mes "DDDDUǧǧǦV";
		mes "PPRH";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "PRJMKK";
		mes "pVFGBsyR";
		mes "FGN@PH";
		mes "ǳǯ=ǳǦz";
		mes "jQUN@H";
		mes "HFKK";
		next;
		mes "[ǳǯ=ǳǦ]";
		mes "I@oMGeFI";
		mes "DsRMiBQCzQR";
		mes "QJFUNnKK";
		mes "}QQrOtNFoC";
		next;
		mes "[ǳǯ=ǳǦ]";
		mes "JMpFǧǧǦV";
		mes "p_GQC";
		mes "iBJFzN@pB";
		mes "tFVsNceBzNnH";
		delitem 7182,5;
		getitem 558,1;
		set QUEST_VALENTINE1,8;
		close;
	}
	if(QUEST_VALENTINE1 >= 8 && QUEST_VALENTINE2 != 11) {
		mes "[ǳǯ=ǳǦ]";
		mes "pJjeBB";
		mes "uǳǦǽǯġvN@C";
		mes "VĶQzN@B";
		mes "ּUcV_qBM";
		mes "FGMrzN@C";
		next;
		mes "[ǳǯ=ǳǦ]";
		mes "NiBǧǧǦy";
		mes "MGJFN@pB";
		mes "qe@oC";
		mes "ǽǯyDhN@H";
		mes "@K2,000ZenyRQqe@KK";
		next;
		if(select("ǽǯyG","khr")==2) {
			mes "[ǳǯ=ǳǦ]";
			mes "";
			mes "ǽǯyrO";
			mes "pJjpQzN@H";
			mes "ҡ";
			mes "URBݩN@vC";
			close;
		}
		mes "[ǳǯ=ǳǦ]";
		mes "~ViNAB";
		mes "p@HN@pQOQpQB";
		mes "psFޥRG";
		mes "qMrUNB";
		mes "FzVqNeBzC";
		mes "KeNNFp}N@oC";
		while(1) {
			next;
			input '@num;
			if('@num==0) {
				mes "[ǳǯ=ǳǦ]";
				mes "";
				mes "ǽǯyrO";
				mes "pJjpQzN@H";
				mes "ҡ";
				mes "URBݩN@vC";
				close;
			}
			if(('@num>5)||('@num<0)) {
				mes "[ǳǯ=ǳǦ]";
				mes "ĶqeBzB";
				mes "KHWV{GC";
				continue;
			}
			break;
		}
		if(Zeny<'@num*2000) {
			mes "[ǳǯ=ǳǦ]";
			mes "ppKK";
			mes "HnJOqQoN@oC";
			mes "HUy";
			mes "ThMGTC";
			mes "jVN@BHMe@pC";
			close;
		}
		mes "[ǳǯ=ǳǦ]";
		mes "VBHpN@TC";
		mes "ǸR[JFqI";
		mes "ǽǯN@C";
		mes "Ǧ";
		mes "PElWqRQJMB";
		mes "YRMGTI";
		set Zeny,Zeny-('@num*2000);
		getitem 558,'@num;
		close;
	}
	mes "[ǳǯ=ǳǦ]";
	mes "pJjeBKK";
	mes "uǳǦǽǯġvU";
	mes "ǳǯN@C";
	mes "VqQMB";
	mes "ǽǯy@rO";
	mes "NQzN@UC";
	next;
	if(QUEST_VALENTINE2==11) {
		mes "[ǳǯ=ǳǦ]";
		mes "VH@ǳN@H";
		mes "Bǵǩz!?";
		mes "DsNVB²Qǽǯy";
		mes "@rFhUǳytWe@oC";
		next;
		mes "[ǳǯ=ǳǦ]";
		mes "zBNiByhrO";
		mes "NrvqeBzoKK";
		mes "ORBotɴGTC";
		next;
		mes "^4A4AFF ǳǯVBHHU^qy";
		mes "MBppsFȤsy";
		mes "KrOBDsyMFC";
		mes "F]zsDUǳQzGtC^000000";
		next;
		mes "[ǳǯ=ǳǦ]";
		mes "eFpB";
		mes "ǽǯyFz@JM";
		mes "qe@pBDUeF";
		mes "HqRQJMGTC";
		set QUEST_VALENTINE2,12;
		close;
	}
	mes "[ǳǯ=ǳǦ]";
	mes "eFBpMGC";
	mes "RĶeBzC";
	close;
}

prt_in.gat,41,40,3	script	U}ǳǤ	86,{
	if(QUEST_VALENTINE1==18) {
		mes "[|=Ǧ|]";
		mes "PUoQΥN@H";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "rHRBǽǯħ@qW";
		mes "͹FrUNBQFUOt_";
		mes "JMfQOvsMKK";
		next;
		mes "[|=Ǧ|]";
		mes "B~N@C";
		mes "DsVDsVB";
		mes "opJjeFC";
		next;
		mes "[|=Ǧ|]";
		mes "QF~U";
		mes "KyɴJMGJFUN@H";
		mes "eNBǧǧǦUyq}Qq";
		mes "piU}y";
		mes "RJspsroRQqeFC";
		next;
		mes "[|=Ǧ|]";
		mes "eqzQOVqQUN@";
		mes "iǽǯyDhR";
		mes "QqFJFpqFe@oC";
		mes "KNipMGC";
		set QUEST_VALENTINE1,19;
		close;
	}
	if(QUEST_VALENTINE1>=19) {
		mes "[|=Ǧ|]";
		mes "pJjeBC";
		mes "ǽǯyDhN@H";
		next;
		switch(select("VB@KG","@JMN@","cN@CReF")) {
		case 1:
			mes "[|=Ǧ|]";
			mes "VBeqeFC";
			mes "@K2UZenyOB";
			mes "PpsriseBzB";
			mes "uyhM@pBMFGM";
			mes "qe@UNKK";
			next;
			mes "[|=Ǧ|]";
			mes "ʤHFRROƱRHF";
			mes "XszOyKK";
			mes "VBtQrqyhF";
			mes "@qǽǯNe@C";
			next;
			set Zeny,Zeny-20000;
			if(Sex==0) getitem 559,1;
			if(Sex==1) getitem 560,1;
			mes "[|=Ǧ|]";
			mes "VBHpN@C";
			mes "qOe@C";
			mes "eFODQGC";
			close;
		case 2:
			mes "[|=Ǧ|]";
			mes "DsNVBqUǽǯy";
			mes "7HFGe@H";
			mes "̰UqKyM";
			mes "@qFe@C";
			if(countitem(558)<7) close;
			mes "BiyHN@TC";
			mes "DsNVt@qenH";
			next;
			if(select("@e@","BJMG")==2) {
				mes "[|=Ǧ|]";
				mes "BPeFH";
				mes "ȼV~OͤHU";
				mes "oNFUNǽǯy";
				mes "@qMoOKK";
				mes "OVBLN@q@r";
				mes "vRieqeBzUNKK";
				close;
			}
			mes "[|=Ǧ|]";
			mes "ǽǯRVBDUU";
			mes "ذRBWieBMe@C";
			mes "HOHOUYRVB";
			mes "XӨiqe@B";
			mes "dOiqe@KK";
			mes "QzOQMe@oTKK";
			next;
			mes "[|=Ǧ|]";
			mes "sVǸĥN@oTH";
			mes "qV@ABaRQpQo";
			mes "zWJM@qeFC";
			mes "RlBWN@C";
			next;
			delitem 558,7;
			getitem 559,1;
			mes "[|=Ǧ|]";
			mes "VBHpN@C";
			mes "qOe@C";
			mes "eFODQGC";
			close;
		case 3:
			mes "[|=Ǧ|]";
			mes "DsVDsVC";
			mes "mJqQJMJMGC";
			mes "iotsWB";
			mes "HFGsWǽǯy";
			mes "@qe@UNB{Q";
			mes "JjJMGC";
			next;
			mes "[|=Ǧ|]";
			mes "ǽǯy7FGsWB";
			mes "@qǽǯRMe@oC";
			close;
		}
	}
	mes "[|=Ǧ|]";
	mes "PUoQΥNHpR";
	mes "RQJFUNnH";
	mes "ikKK@qǽǯy";
	mes "DhRpJjJFUN@H";
	next;
	mes "[|=Ǧ|]";
	mes "ByYMsr";
	mes "ޥByKJsrO";
	mes "NMQFhBHpRi";
	mes "MQUN@oKK";
	next;
	mes "[|=Ǧ|]";
	mes "BJRQJFUR";
	mes "ĶQUN@KK";
	close;
}


/*
// ǻ~
// Valentine Script 2004-02-12
alberta.gat,26,243,4	script	ǽǯİӤH	58,{	//kkʤJi
	mes "[ǯ=ǴǦ]";
	mes "ǿǨǿNVhR";
	mes "vQS~I";
	mes "@f`sWNiBR";
	mes "OtrGlI";
	mes "ۤN`MiBqRi";
	mes "ǿǻGI";
	next;
	mes "[ǯ=ǴǦ]";
	mes "DzQǽǯ ^ff0000@";
	mes "5000zeny^000000I";
	next;
	if(select("ǽǯGI","qeBzI")==1) {
		mes "[ǯ=ǴǦ]";
		mes "ǢסIqOe@BȼˡI";
		mes "UǽǯV¾HUeJM";
		mes "rOJMiLNVQUN@I";
		mes "QUNB@^URWRK";
		mes "^ff00005eN^000000OQJMqe@I";
		next;
		mes "[ǯ=ǴǦ]";
		mes "iJOUNFpBeFNA";
		mes "JTe@INVBK";
		mes "UNnI";
		while(1) {
			next;
			input '@num;
			if('@num>5) {
				mes "[ǯ=ǴǦ]";
				mes "ǢסBءBعءI";
				mes "@^URWN5eNOe";
				mes "FoTIpVFzUHRBU";
				mes "ǽǯyvJMUN@I";
				mes "DsRB`@rOqe@I";
				continue;
			}
			break;
		}
		if('@num>0) {
			if(Zeny<'@num*5000) {
				mes "[ǯ=ǴǦ]";
				mes "ǢסHssBssKKzI";
				mes "qeBzoCDsNVǽǯ";
				mes "yrOVXeBzI";
				mes "pVBiWpRe@p";
				mes "XFpeFPEI";
				close;
			}
			set Zeny,Zeny-'@num*5000;
			getitem 558,'@num;
			mes "[ǯ=ǴǦ]";
			mes "qOe@I";
			mes "pVBiWpRe@p";
			mes "ǽǯQJFpBeF";
			mes "PEIHMqe@I";
			close;
		}
	}
	mes "[ǯ=ǴǦ]";
	mes "ǢסHzQǵǳQǽǯ";
	mes "QOKKݩN@TI";
	mes "GRQǵǳNSOQ";
	mes "GlN@oIMBǽǯ";
	mes "QJFpODODODeF";
	mes "MGIHMqe@I";
	close;
}

alberta.gat,29,243,4	script	ǽǯİӤHUʤH	53,{
	if(Sex || countitem(7182)<5 || countitem(7134)<1 || countitem(519)<1 || countitem(612)<1) {
		mes "[Ǥǵ=Ƕ]";
		mes "zRHVCVBpUJMr";
		mes "ǽǯVp@JMrzN@C";
		mes "~NB@rkyzNFUN@C";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "~NVBUɴRnQHRǽǯ";
		mes "yǸ@rqe";
		mes "@CHyBǽǯR";
		mes "U@KK@WpOeBzH";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "pUǽǯNiRM";
		mes "sWOBFzFzBǽǯ";
		mes "y@JFzN@C";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "VBDzQpyMuۤRXr";
		mes "Oy@rzGvJMxiJMǽǯ";
		mes "yJMsMrzN@C";
		mes "DUHi^PBǽǯ";
		mes "yRJMsFUCBoq";
		mes "pyBRMsrzN@C";
		next;
		if(Sex) {	//kQpפF
			mes "[Ǥǵ=Ƕ]";
			mes "GpB@Ӥ@ӤjRjR@JM";
			mes "rzN@CۤNiNF";
			mes "Oe@B@ץlWJMfM";
			mes "GTC\BxiJMiJO";
			mes "@pQjI";
			close;
		}
		mes "[Ǥǵ=Ƕ]";
		mes "bPieFB~NVUɴ";
		mes "nQHRǽǯyǸ";
		mes "@rzN@CiBnQrQp";
		mes "ǽǯO@RHyɴM";
		mes "feBzH";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "yJMMssWBǽǯ";
		mes "y@qe@CpUJMrǽ";
		mes "ǯNiUN@KK";
		mes "NRoqBۤNhFN";
		mes "@JFǽǯUbBDUKK";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "ۤUHۤRɴvroQ";
		mes "eBzH";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "N@BUǳVN@H";
		mes "^3355ffǧǧǦ 5";
		mes "ǫ 1";
		mes "Ų 1";
		mes "aηql 1^000000";
		next;
		mes "[Ǥǵ=Ƕ]";
		mes "ǳNFpBMGC";
		mes "ǽǯy@pBM";
		mes "FGe@C";
		close;
	}
	mes "[Ǥǵ=Ƕ]";
	mes "ǳXFzN@TINVBty";
	mes "vBMFGe@I";
	mes "BFRrRVN@oC";
	next;
	delitem 7182,5;
	delitem 7134,1;
	delitem 519,1;
	delitem 612,1;
	getitem 558,1;
	mes "[Ǥǵ=Ƕ]";
	mes "VBXӤWqeFI";
	mes "ǸQrUN@H";
	mes "HɴvrON@TC";
	mes "BRQJMGC";
	close;
}

prt_castle.gat,42,35,3	script	cǲ¾H	47,{
	if(Sex) {
		mes "[ǳ=Ǧ|]";
		mes "Ǵ_ǿǳCǻǫǳV";
		mes "pNyfX@FhB";
		mes "U|ǤRRꭰqFOtQU";
		mes "N@C";
		next;
		mes "[ǳ=Ǧ|]";
		mes "ǦǡBIpUMpQV";
		mes "RpkUfyM@QUN@C";
		next;
		mes "[ǳ=Ǧ|]";
		mes "ǦǡBDsNQMiUR";
		mes "Uǳ=Ǧ|yvBr";
		mes "QzMCǦǡBC";
		close;
	}
	mes "[ǳ=Ǧ|]";
	mes "ǦǡB|ǸI";
	mes "QDRrGNBUg";
	mes "WѰRQrC";
	next;
	mes "[ǳ=Ǧ|]";
	mes "ѨUoRRrQ";
	mes "JFNRpFUQH";
	mes "ǻǫǳhNosWBNi@y";
	mes "DenC";
	next;
	if(select("ǽǯy@JMse@H","hsN@C")==2) {
		mes "[ǳ=Ǧ|]";
		mes "ǦǡBDU@KKǻǫǳUsby";
		mes "LR@oQKKDUBUbUoQ";
		mes "@BpUydqBGBI";
		mes "BMeKK";
		next;
		mes "[ǳ=Ǧ|]";
		mes "ǦǡB|ǸI";
		mes "P@sWP@sWKKQUy";
		mes "AZǻǫǳUOXrU!?";
		close;
	}
	if(countitem(558)<3) {
		mes "[ǳ=Ǧ|]";
		mes "ǦǡB|ǸI";
		mes "ǻǫǳVNiNvNiQUN";
		mes "@CQpN~yqX@O";
		mes "QPXeBzIDMBZQ|~";
		mes "pZQ@~y@rQPBjQ";
		mes "NaUǻǫǳRVi!!";
		next;
		mes "[ǳ=Ǧ|]";
		mes "ǻǫǳгy@rVB@ɤUi";
		mes "PUFhyRBRi쩳u";
		mes "XQN~QUN@C";
		next;
		mes "[ǳ=Ǧ|]";
		mes "ǻǫǳQUWRrRV";
		mes "^3355ffǽǯ3^000000򵴹沈nQUN@C";
		mes "DsHUNiBDsHWNiQC";
		mes "ǿǻ3ӡKKC";
		next;
		mes "[ǳ=Ǧ|]";
		mes "|ǸUOذQR";
		mes "sFjQNQpBJOR";
		mes "JsMrOiNnC";
		next;
		mes "[ǳ=Ǧ|]";
		mes "N@C^3355ffǽǯ3^000000yJM";
		mes "MGCXrOQpU";
		mes "UBaU_NiBQUR";
		mes "ǻǫǳ򪽱RJsMtWF";
		mes "BUǻǫǳVcU~Rשl";
		mes "vsrKKǦǡKK";
		next;
		mes "[ǳ=Ǧ|]";
		mes "Ǧ ǥ |ǸKK";
		mes "QUqypHM";
		mes "qe@KK";
		close;
	}
	mes "[ǳ=Ǧ|]";
	mes "ǦǡB|ǸI";
	mes "ǻǫǳUMrMUPyJM";
	mes "QUǽǯy@Wp";
	mes "ZkQN_O@BMFG";
	mes "enI";
	next;
	mes "[ǳ=Ǧ|]";
	mes "QUO_B@ɤUiy";
	mes "yF@rBzNQRUyK";
	mes "oRKK";
	next;
	mes "[ǳ=Ǧ|]";
	mes "| ǡ  ǫ{KK";
	mes "fR|UlճRܨ";
	mes "FoRKKZQǽǯ";
	mes "NRܨ@rUGKK!!";
	next;
	mes "[ǳ=Ǧ|]";
	mes "x]ffKKDM\zvqO";
	mes "ܤ@rI";
	mes "jRMBjQrɥNUW@oKKI";
	next;
	delitem 558,3;
	getitem 559,1;
	mes "[ǳ=Ǧ|]";
	mes "ǦǡBǣǳǻǳǦIǦǡ";
	mes "zQQ@~y@qXBrOVKK";
	mes "ǻǫǳVQzOo`UGKKI";
	mes "|ǸBUQUܷULf";
	mes "OirN~BRJJMFG";
	mes "FQC";
	next;
	mes "[ǳ=Ǧ|]";
	mes "NVBǦ ǥC";
	close;
}
*/